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3 COPY LOG4O00 **k MAP EC HISTORY ** ° 002500 252c 201 A (ENTPT POINT TO MAP ENTRY POINT TABLE 
TESST SSS S SSLSOSSPSO SS CSS SS SSS SSS CCC S CSCS SSSCSCCCOSSCC$#$CSLSCL CCS SPST SSL S STL SSS 202 FE Se PE Oy PE PTET Lee Tr PEE La ete Pet) rene 
5 * * 203 RR RH HH He He he a he ae he ae ie ae ae he he he Se ie hee Hee ee ae He ic he he He ee eR oi 2 Hee i he eo ee he hc ee 2c te ae ok fe ok ok 2 oe 
6 * AK PREREQUISITES tk * 204 *x* ek 
7 * x, 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * 
8 * HARDWARE EC 576943A ko 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER tk 
9 x * 207 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR ** 
10 Re a ee eo 2 a te oe oe a i OR Rk RRR Fk RI I RR I Re ROR IO i ake oe ok ok akc 208 ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS * * 
11 * * 209 ** PURPOSE THEY ARE: * 
12 * eK MODIFICATIONS ACK * 210 ** ** 
13 * * 211 ** STEP AND RULE ADDRESS TABLE * 
14 * CHANGES MADE TO CORRECT FOR LOW BAUD RATE * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND *x 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
VG RH a eK ee he He i he He he he 2h af oe eq He ae fe he 2 oh oe ke i 2c He ah oe hc ac oe hee fe oe 3 oe oo ae coi ae ae 2c ake coke fe ae oe oe coke ok 2 214 ** ENTRIES ARE AS FOLLOWES * x 
17 * * 215 ** A AN ADDRESS OF THE ROLE DC START AREA ** 
18 * eX REA'S EFNCORPORATED wx * 216 ** B THE STEP NUMBER IN DECIMAL ** 
19 * * 217 ** Cc AN EQUATE FOR THE STEP NUMBER * x 
20 * NONE * 218 ** ** 
21 * * 219 ** RULE INFORMATION TABLE ** 
22 OR ORR ROR RR i tok i kook loti ioioiciok uk ak koko de dok kik date tote ok ke ok kk oc kc ak 220 ** THIS TABLE CONTAINES THE Se ee INFORMATION TO EXECOTE * * 
23 * *x 221 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24 * RK SPECIAL INSTRUCTIONS te * 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
25 * * 223 ** INDICATED WITH A X*0000' FOR THE RULE EQUATE. *x 
26 * NONE * 224 ** ** 
27 * * 225 ** $QUES *x 
VAST E tT SL SLS SS SSS SSS SSS SSC SS SSS SS LS SSCS TCS CSCS LCL SST SSS TSS PLS eS eS Se TSE SS Let st 226 ** 3 RULE EQUATE x'!0100! *x 
29 * * 227 ** B) ADDRESS OF THE YES LEG RULE ** 
30 * KK E. C. HISTORY kK * 228 ** kK 
33% 77 : $23 ves seta A) RULE EQUATE xX'0101'8 +* 
32 * DATE O1JUL76 DATE 010CT76 DATE O2DEC76 DATE 10J0UN * 
ai : E.C. 578446 E.C. 578468 E.C. 578469 E.C. 578625 : 334 sis B) ADDRESS OF MESSAGE TO PRINT ac 
35 * DATE 22JUL77 DATE 15SEP77 DATE O1SEP78 DATE * 233 ** $STOP ** 
36 * E.C. 578757 E.C. 754882 E.C. 374888 —C. * 234 ** A) RULE EQUATE X'0102! ** 
37 * * 235 ** 5} ADDRESS OF MESSAGE ** 
JB HHH HR HK RK I I ROR OR IO OR tok dak tok iio i kek kote 236 ** ** 
002500 4O T4000 START X'25008 START ADDRESS OF ALL 'I' TYPE PROG 237 ** $GOTO ** 
000100 41 QUES EQU X¥'01008 EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE EQUATE X*0200! ** 
000101 42 O@FIXT EQU X¥*0101!8 EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE *x 
000102 43 a@aSTOP EQU X¥'0102! EQUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF MAP TO GO TO ** 
000200 44 aGOTO EOU X'0200! EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000201 45 @acaLL EQU X¥*02018 EQUATED VALUE FOR MDI STATEMENT 242 ** FE) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000300 46 @INPT EQU X*'03008 EQUATED VALUE FOR MDI STATEMENT 244 ** * 
000400 47 @QUXX EQU x'0400! EQUATED VALUE FOR MDI STATEMENT 245 ** SCALL ** 
000500 48 aTUXX EOU x*0500° EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE x'0201' *x 
000600 49 @NVLD FOU X*0600° EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDRESS OF MESSAGE ** 
000000 50 EQU x*0000°8 EQUATE R EQUAL 248 ** C) NAME OF MAP TO CALL ** 
000004 51 NE EQU x'o004! EQUATE FOR NOT EFOUAL 249 ** D) ENTRY POINT WITHIN CALLED MAP TO USE ** 
000008 52 HI EOU x¥*O008' EQUATE FOR 250 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE x 
00000Cc 53 NH EQU x'o00c* EQUATE FOR NOT HIGH 251 ** * 
000010 54 LO EQU x*00108 EQUATE FOR LOW 252 ** SINPT *% 
000014 55 NL EOU x'o01uWs EQUATE FOR NOT LOW 253 ** A) RULE EQUATE X'0300! ** 
000010 56 LT EOU X'0010° EQUATE FOR LESS THAN 254 ** B) INPUT TYPE seECOle OR HEX) ** 
00000C S7 LE EOU x'000c! FOUATE FOR LESS THAN OR EQUAL TO 255 ** C) ADDRESS OF YES LEG LE *% 
000008 58 GT EOU X¥'0008'8 EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA ** 
000014 59 GE EOU x'0014°8 EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPUT DATA ** 
000200 60 ON EQU xX¥'0200' EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA ** 
000202 61 OF EOU X'0202°8 EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA *e 
000204 62 MX EOU X'0204" EQUATE FOR MIXED 260 ** * x 
000000 63 EBC EQU X¥'0000' EQUATE FOR EBCDIC DATA TRANSFER 261 ** SQUXX ** 
000001 64 HEX EOU x¥'0001'° EOUATE FOR HEX DATA TRANSFER 262 ** A) RULE EQUATE X'0400! *x 
000001 65 XTRNL EQU x¥'0001' EQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDRESS OF YES LEG RULE ** 
000000 66 INTRNL EQU x'0000' EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS INITIAL) ek 
000000 67 EOU Xx'0000' EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) *% 
000001 68 DA EQU x'0001'5 EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES * x 
000002 69 UA EOU X'0002' EQUATE FOR UNIT ADDRESS 267 ** F) PARAMETER TO PASS TO TU ik 
000000 70 DUMMY EQU x'o000! DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER x 
001800 72 PID EOU *-X¥'QODOO! ADDRESS OF MDI HEADER 269 ** xx 
000232 73 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 270 ** STU XX x 
00180C 74 STEPNUM EQU PID+x'O00C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE X*0500! x 
00180E 75 OPWD1 EQU PID+X"OOOE! ADDRESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG RULE ek 
001810 76 OPWD2 EQU PID+X'0010! ADDRESS OF OPTION WORD TWO 273 ** C) TU BRANCH TO ADDRESS x 
001818 77 TUSTATUS EOU PID+x'0018! ADDRESS OF TU STATUS WORD 274 ¥* D) TYPE OF COMPARE TO MAKE ON RESULTS *% 
00181A 78 TUWORK EQU PID+X'OO1A® ADDRESS OF TU WORK AREA 275 ** E) LENGTH OF COMPARED RESUL ** 
00189A 79 TUPARM1 EOQU PID+X'OO9A'? ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOR COMPARE ** 
SO1B 9S Bt FUP Aens «EOU | Ope Dseroosgt ADDRESS OF PARM 3 POTNEEE 34g ee Gy PARAKETER TO PASS fo THE TO x 
+X S TE 
0018A0 82 TUPARMY FOU PID+X'OOAO! ADDRESS OF PARM 4& POINTER 279 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
0018A2 83 TUPARMS EOQU PID+X"OOA2#* ADDRESS OF PARM 5 POINTER 280 ** ** 
OO18A4 84 TOPARM6 EOQU PID+X"OOAY! ADDRESS OF PARM 6 POINTER 281 ** S$NVLD : ** 
0018A6 85 TUPARM7 EOU PID+X'OOAG6! ADDRESS OF PARM 7 POINTER 282 ** A) RULE EQUATE X*0600' * * 
0018A8 86 TUPAPM8 EOU PID¢X'OOA8! ADDRESS OF PARM 8 POINTER 284 ** ** 
OO18AA 87 TUPARMOS EOQU PID4+X'OOAA® ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE ** 
0018AC 88 TUPARM10 FOU PID+X'OOAC! ADDRESS OF PARM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *% 
OO18AE 89 TUPARM11 EQU PID+X"OOAE! ADDRESS OF PARM 11 POINTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B0 90 TOUPARM12 EON PID+X'OOBO! ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * x 
0018B2 91 TUPARM13 FOU PTD+X'00B2! ADDRESS OF PARM 13 POINTER 289 ** ex 
0018B4 92 TUPARM14U EQU PID+X'OOBY4! ADDRESS OF PARM 14 POINTER 290 ** AY NAME OF ENTRY POINT ** 
0018B6 93 TUPARM15 EOU PID+X*OOBE? ADDRESS OF PARM 15 POINTER 291 ** B) ADDRESS OF ENTRY POINT RULE TABLE x 
0018B8 94 TUPARM16 EOU PTD+X'OOBS8! ADDRESS OF PARM 16 POINTER 292 ** *k 
OO18BA 95 TUMSGWTR EQU PID+X*OOBA? ADDRESS OF -> TO COMMON MSG WRITER 293 ** THE ENTRY POINT TABLE END IS INDICATED BY A Xx'0000! ** 
0018BE 96 TOUA EQU PID+X*OOBE!® ADDRESS OF UNIT ADDRESS IN EBC 294 ** #1 
0018C0 97 TUDA EQU PID+x*OOCO! ADDRESS OF DEVICE ADDRESS IN EBC | 295 ** MESSAGE TABLE ** 
0018C2 98 TUBUFF EOU PID+#x'00C2! ADDRESS OF LAST USED WORD IN MAP | 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR x 
0018C4 99 TULAST EOU PID#*x*OOCKt ADDRESS OF LAST ADDRESSABLE WORD 297 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: er 
0018C6 100 TURESOLN EOQU PID+X*OOC6! ADDRESS OF LENGTH OF TU RESULTS | 298 ** * x 
0018C8 101 TURESUL EQU PID+X'00C8! ADDRESS OF TU RESULTS FIELD. 299 *x* A) EQUATE FOR START OF MESSAGE BLOCK * 
0018FC 102 MAPNAME EQU PTD4+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBER OF LINES OF MESSAGE te 
001948 103 TUINPT EQG PID+x'0148! ADDRESS OF $INPT DATA ] 301 ** C) LENGTH OF FOLLOWING LINE ** 
00196E 104 PARMARA EQU PID4+X'O16E! ADDRESS OF $INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE ** 
0019B8 105 @DCADD1 EQU PID4xX"'O1B8! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LTNE am 
OO19BA 106 @DCADD2 EQU PID+X"O1BA® MDI POINTE 304 ** F) SECOND LINE OF MESSAGE ** 
pelaca 1a SUPSTAT EOU BIDexs O1cas ADDRESS OF MDI STATUS aac es G TC. be 
0019DA 109 Deva : H DT beTtOIDA® sbbnces Cr Dey T oe A ooneee ere 9 CLLR hE R EEE PELE TE TT ES TTT TTT TTT TT TT TE TET EET PET TTS TET PETS TESTS STE FS 
0019R4 110 DEVADD2 EOU PID+X'O1EU!? ADDRESS OF DEVICE ADDRESS TABLE 2 308 63 oo Oo a OR oi ORI RR OO IOI I HO ei 
O0019EE 111 DEVADD3 EOU PID+tX"O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 | 
0019F8 112 DEVADDS EOU PID+X*O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADD5 EOQU PID+X'0202' ADDRESS OF DEVICE ADDRESS TABLE 5 
001A0C 114 DEVADD6 EQU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 he DEVADD7 FOU 3 PID+X*0216! ADDRESS OF DEVICE ADDRESS TABLE 7 | 
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QV a ta ROR IR IORI IOI IORI ORO RO IOI IOI Rik RR i fog dak takook toto took ok OOOOOA 427 START EQU 10 START CYCLE STEAL SVC 
312 0 OR OR RII RI OI IOI II I IO OR TO i iok ik kok tok 00000B 428 STCSS EOU 11 START CYCLE STEAL STATUS SVC 
313 ** ** 00000C 429 PREP EQU 12 PREPARE DEVICE SVC 
314 ** STEP AND RULE ADDRESS TABLE -* 00000D 430 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
315 ** _* QO000E 431 READ1 FOU 14 READ WITH FUNCTION BIT 3 ON SVC 
316 ROO OO I I III IIOR I III BOI I RR HOR OR IO a aie ake ake ie ak ar OOO000F 432 RSTAT EOU 15 READ STATUS SVC 
317 See Ae Se AR ARGS ToT ee ee eRe Cee Tene ee ee eee eee e eee 000010 433 WRITO EOD 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
002502 2510 318 See ee: 000011 434 WRIT1 FOU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
002504 0001 319 XL2"'0001' 000012 435 CTRL EQU 18 CONTROL SVC 
000001 320 EQNO0001 Bee 0001 000013 436 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVZ2 
002506 2522 321 AL2 (N00002) 000014 437 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
002508 0002 322 XL2*0002° 000015 438 HIO EO U 21 HALT ALL I/0 
000002 323 EQN00002 EQU 0002 000016 439 REQSD EOU 22 REQUEST USE OF DCP DISK SVC 
002508 2526 324 AL2 (N00003) 000017 440 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
00250C 0003 325 XL2*0003°8 000018 441 HALT EQU 24 HALT SVC 
000003 326 EQN00003 FOU 0003 000019 442 ETOH EOU 25 EBCDIC TO HEX SVC (STRING 
00250E 0000 327 DC L2 (DUMMY) OOOO1A 443 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
328 3 OR ok i tok ka io dik iok a lok i aki i tokio tage tei ak teak te ae afr eae ae 2 00001B “U4 ATOH EOU 27 ASCII TO HEX SVC TRING 
329 0 ok RCO I I RICO ii fok i ak lok tc flote fete ge tote ak ate iieaie fea ok 00001C 4YU5 HTOA EQU 28 HEX TO ASCII svc {Sterna} 
330 ** ** 00001D 446 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
331 ** RULE INFORMATION TABLE id 0000 1E G47 ATOR EQU 30 ASCII TO EBCDIC SVC (STRING 
332 ** *% OOO001F 448 READI EOU 31 READ DATA SETS FOR MDI/0TIL 
B33 RRR RR RR ORR OR ROI IO IRR ROO III ICI I i dea tea ie ae a ae ae ate 000020 449 WRITI EOU 32 WRITE DATA SETS FOR UTIL 
ZS HR HK A he he fe 2 ee ee a a eK i a a a oe oR a ok ah of a ae ae afc ate ae afc a ae a af aie ae ke oie fe ok fc a oe att ae ae a fe ae ae age fe ape age fe afr ae “51 AE ated me PORE a MMO ONL orot trae me er Ser ne ea He Me He He ke He ae he He he he 3c Kc 
335 n00001 $TUXX T4000,02,0000,EQ, OT= (Q00062) , YES=N00003,CT=(C00060) 452 * * 
002510 0500 336+N00001 DC A(@TURX 453 * EQUATES USED BY TU'S AS CONSTANTS * 
002512 2526 337+ DC AL2 (N00 454 * * 
002514 2AD2 338+ DC A (T4000) 455 RR OR IORI Iti Rok iO ak mK tk Ot ik i i kk 
002516 0000 339+ DC ALD (054 OOOO4E 456 PLUS EQU Ct+¢ PLUS CHAR 
002518 0002 340+ DC AL2 (0 000060 457 MINUS EOU c'-! MINUS CHAP 
00251A 0000 341+ DC X'0000' 000000 459 ZERO EOU 0 
342+ ALIGN WORD 000001 460 ONE EQU 1 
00251C 0000 343+ C AL2 (0) 000002 461 TWO EQU 2 
0OO251E C1C1 344+ Ctaa? 000003 462 THREE EQU 3 
3454 ALIGN WORD 000004 463 FOUR EQJ 4 
002520 196E 346+ Cc AL2 (PARMBRA) 000005 464 FIVE EQU 5 
347 NO0002 $FIXT Fre 00065) ,GTO=((4071,A)) 000006 465 SIX EQU 6 
002522 0101 348+#N00002 C A (a TET) 000007 466 SEVEN EQU 7 
002524 2532 349+ C A (FO0006 ) 000008 467 EIGHT EOU 8 
350 N00003 $STOP F ace 3) ,ST= (S00069) 000009 468 NINE EQU 9 
002526 0102 © 3514+N00003 DC A (2 cor) OOOOOA 469 TEN EQU 10 
002528 2560 352+ DC A (F0007 , 00000B 470 ELEVN EQU 11 11 
00252A 0000 353 oe AL2 (DUMMY) 00000C 471 TWELV EQU 12 12 
00252Cc 354 ENTPT * 00000D 472 THRTIN EQU 13 13 
355 re ceeceeee EN PEELE PE ee er Pe eee Tee nner Te rere OOOOOF 473 FIVTIN EQU 15 15 
356 Se ORE Ta Tee eRe eek ee Tee Te ee Lee Te ee ae A ee 000010 “7u SIXTN EQU 16 16 
357 #x ** 000020 475 THRY2 EQU 32 32 
358 ** ENTRY POINT TABLE abs 000040 476 SIXTY EOU 64 64 
359 ** ** 000080 477 ONE28 EQOU 128 128 
360 2 KR FOR OO tok tok a tokotek tak detetek iota tote ak otek ate ok ke kak ak 000100 478 TWO56 EOU 256 256 
361 eR RO RRO FR ROR IR OR ROR II IORI III RIO RRO FOR FR SOR dK 000400 479 ONEK FOU 1024 1024 
362 ENTPT EP=A,STEP=00001 000800 480 TWOK EOQU 2048 2048 
00252C c140 363+ DC CL2'At 000c00 481 THREK EQU 3072 3072 
00252E 2510 364+ DC & (NO0001) 001000 482 FOURK EQU 4096 4096 
002530 0000 365 AL2 (DUMMY) FFFFFF 484 M1 EOU -1 -1 
CAME Le TST TTS SSS SSE SS FT SS ST TS SSS SSE SSS SESS SSS SS CSS SS SPS eee eC eS + SC SS CSS ECL SS 3 FFFFFE “g5 M2 EQU -2 -2? 
JOT BK RK RK I KR KK KOK KKK RK ok to kkk ok dokok kkk kkk tak ok fok tok ok oko tcakk kk FFFFFD “86 M3 EOU -3 -3 
368 ** *% : 2 -f 
Ay a MESSAGE TABLE ne EEEEEC ag ECeasee eee cs cae wane bas Oe ta aos ee ee eek 
490 * * 
CWMMR TELS tS TS SS LSS TTS SST STS SL SSS SS SST SS SS SSS SS PSS SST SSS SCS SL PS STS SS STS SSL SS 3 * * 
Asees au2 1 OK CR FR II IORI IOC I RIO RI III IO a kok kok 19 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
2 373 F00065 EQU * * * 
002532 0001 374 DC AL2 (0001) ney FRR I I IO I III II IR IG II IOI I IK ok 
002534 002A 375 DC A (0042) 000000 495 BSO EOU 0 
002536 E3E3E840C1E3E3C1C 376 DC CLOO42'*TTY ATTACHMENT TEST DID NOT RUN CORRECTLY. '! 000001 496 BS1 EO U 1 
002560 377 F00073 EQU 000002 497 BS2 EQU 2 
002560 0001 378 DC AL2 (0001) 000003 498 BS3 FOU 3 
002562 0012 379 DC A (0018) 000004 499 BS4 EQU 4 
002564 CT7DED6CH4OCSDS5C4Y4 380 DC L0018"GOOD END THIS MAP ! 000005 500 BS5 EOU 5 
381 PKRPKGA COPY INT 000006 501 BS6 EQU 6 
BB3 HA KK KKK KK KK KK KK kk kok kkk kk ik tok fk ck ke ik kt tok ok ok fk tok 000007 502 BS7 EQU 7 
CfsUMe te TTT STS SSE SSS SESE TSS LTS SST SSPE SL SSS SSS SSS SSS SS SSS SSC SCS SSL S TSC SL SSL Le. SF 000008 503 BS8 EQU 8 
385 ** * 504 BSI EQU 9 
386 ** A) PROGRAM NAME --- FC 7845 TTY ATTACHMENT AUTO-SEQUENCE TEST ** nOObOR 505 BS10 FOU 10 
387 ** - = 00000B 506 BS11 EQU 11 
388 ** iid 00000CcC 507 BS12 EQOU 12 
389 ** 8B) FUNCTION ------- TESTS THE FC 7845 TTY ATTACHMENT CARD IN # 00000D 508 BS13 EQU 13 
390 ** THE AUTO-SEQUENCE MODE. * 00000R 509 BS14 EOU 14 
391 «x ae O0000F 510 BS15 EQU 15 
392 ** (C) LINKAGE -------- THIS PROGRAM WILL BE ENTERED WITH - OK 512 COPY T4000 
Sar a REGISTER 7 CONTAINING THE RETURN ADDRESS. Mie 513 ORK IRI I OR io rok ok kok kiiak okokcdek ik dak ick tote kok te co 
514 * 
395 ** ** 515 * TEST OVERVIEW AND OPERATING PROCEDURES 
396 ** D) ENTRY POINT LABEL(S) -- PRIMARY --- RTOO *% 516 * 
397 ** SECONDARY - NONE ** 517 * THIS TEST IS DESIGNED TO BE RUN IN THE AUTOMATIC SEQUENCE OF THE 
398 ** sales 518 * SERTES/1 DIAGNOSTIC PACKAGE. IT CANNOT ASSUME ANY ATTACHED DEVICE. 
399 *x # 519 * THIS PROGRAM RUNS UNDER CONTROL OF THE DIAGNOSTIC CONTROL PROGRAM 
400 ** £E) RETURN CODES AND/OR FORMATTED RETURNS pane 520 * WITH THE ATTENDANT CONTROLS AND RESTRICTIONS. THIS PROGRAM DOES MAVE 
401 ** X'0000" IN 'TURESUL' = GOOD RETURN * 521 * TRAP AND LOOP CONTROLS USEFUL FOR PROBLEM DETERMINATION AND 
402 - X'0001' IN 'TURESUL' = ERROR RETURN ie 522 * RELIABILITY TESTING. 
523 * 
“Ou *x* * BDU He He RK i eH Ke He eK oe 2 oe aK oC I 2 ic hee oe 2 ok fe ak ae eat ade ote ae fe cafe ake af fc ok ok ak ok 
405 ** F) EXTERNAL REFERENCES (SUBROUTINES OR TU'S): * 525 * 
aoc abi M4001 ees 527 ORR OR RI RIO IIR I i i ikki FIO ik Rk fe ie kk ote ak ae 
528 * 
YU QB eke eA eK he he 2 a fe oe he 2 ae ee Re 2 eo He 2 a he he i 2 2 i oe i i oe a ae i fc oe ae a ae fe eae ae kc kc fea oe oe ok ec ok 2 * 
LEQ A Ae 2 He He ie he Ae hc he he he ke he he he ak he he fe eae he oi 2 ee 2 he he aie i ici oe ake 2 ac che he ae 2 aie ac ac fe he ae fe he fee he fe ae fe ae ae fe ae oe ae ie fe fe 233 * Poca ree Pores 
411 Pp CONE OU S37 RR a A He he he ie oe he he he he ae ae he ee he fe 2h i eae 2h eRe 2h ae 2 at a ic ae ic oc oie ic oe te ake ie oe ee fe ete eae co oc oe ke i ake he ate oe 
412 2 RR ORK ORR OR GK tok kk tik RII III ok loko te tok ake teak akc aca oc 532 * 
413 * + 002576 4000 533 TUID DC "4000! TEST UNIT ID 
hae : EQUATED NAMES FOR SUPPORTED SVC'S 2 002578 0000 534 RTNE DC A ae CURRENT ROUTINE IN EXECUTION 
16 RO OO RI IO IG IO IR ok Fk Ik I It RO kk i ak tae atk ake ake at akc of ake ofc oc ic 3 BOsete re 232 rDGE be Af x) SDCEOL ASH Eyocunan MEP ETE ROUTINE 
000000 417 OUT EQU =O OUT SVC 002580 FF 537 xIrocc DC X'FFt LAST "EXPECTED!" OTO COND CODE 
000001 418 OUTIN EQU 1 OUTIN SVC 002581 FF 538 RIOCC DC X'FF? LAST "RECEIVED! OI0 COND CODE 
000002 419 IDLE EQU 2 IDLE SVC 002582 FF 539 XINCC DC X'FFt LAST "EXPECTED" INTERRUPT COND CODE 
000003 420 IDLE5 EQU 3 IDLE SVC — INDEPENDENT OF CPU TYPE 002583 FF S540 RINCC DC X'FF!t LAST "RECEIVED! INTERRUPT COND CODE 
000004 421 CHNGE EQU 4 CHANGE LEVEL SVC 002584 FF 541 IDRDA DC X'FFt DEVICE ID OR DEVICE ADDRESS 
000005 422 PGMCK EOU) 5 ALLOW RETURN ON PROGRAM CHECK SVC 002585 FF 542 LEVEL DC X' FF! LEVEL LAST INTERRUPT OCCURRED ON 
000007 43h TERM FOU 7 TERMINATE SVC ae 
002586 10 544 ATTID DC x'10' DEVICE ID OF THE TTY ATTACHMENT 
000008 425 RESET EQU 8 RESET DEVICE SVC 7 545 BPHDR DC "gor "BYPASS HEADER PRINT' SWITCH 
000009 426 RID EOU 9 READ ID SVC ateoe sa Zie * - : 
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ALIGN WORD 
PGMID DC "40008 PROGRAM IDENTIFIER FOR MESSAGES 
BUFFR DC soa (F*) PRINT BUFFER 
CCERR DC A (*-*) ‘INTERRUPT CONDITION CODE ERROR' INDR 
cc1 DC X'o1t ‘EXPECTED CONDITION CODES! 
cc2. Dc X'02! * (USED FOR SETTING "EXPECTED! INDRS 
cc3.—s oc X'03! * “FOR ERROR STATUS DISPLAYS) 
cc6 =i X'06! * 
cc7 DC X07! * 
ccx DC 2A (-1) * 1NO INTERRUPT (COND CODE) EXPECTED! 
. * OR 'COND CODE INSIGNI NT' IWOR 
ALIGN WORD 
: C x'00" SPACER 
CTLSW DC X'00! 'SVC OUT! PRINT-CONTROL SWITCH 
CTLBK DC A (BUFFR) "SVC OUT' CONTROL BLOCK (MSSG ADDR) 
* 
DAPTR DC A (*-% PROTNZER TO DEVICE ADDRESS VECTOR 
DDB DC A (*-* SIA'S (FOR INTERRUPT SERVICE) GO HERE 
DVAER DC A (#-* ‘INCORRECT DEVICE ADDRESS! INDR 
IBIT DC X"O1 CODE FOR SETTING 'I BIT' IN I/O OPS 
INTIN DC A (*-*) ‘TNTERRUPT OCCURRED! INDR 
LSB. DC 11 (*-* LEVEL STATUS BLOCK SAVE AREA 
DLSB DC 11A (#-* * 
LVLER DC A (*-*) ‘INTERRUPTED TO WRONG LEVEL! INDR 
LVLO DC x' oor CODE FOR SETTING "LEVEL 0' IN I/O OPS 
LVL1 DC X'02" CODE FOR SETTING "LEVEL 1' IN I/0 OPS 
LVL2 DC X'Oue CODE FOR SETTING "LEVEL 2" IN I70 OPS 
MCKCD DC X'3803! 'DCP/MDI MACHINE CHECK INDR' CODE 
MCPSW DC A (*-*) "MACHINE CHECK PSW' SAVE AREA 
PARM1 DC A (*-* ‘HTOE' UTILITY ROUTINE CONTROL BLOCK 
PARM2 DC A (k-* * 'PARNT' = CHAR CNT, '"PARM2" = HEX 
PARM3 DC A (#-* * DATA ADDR, 'PARM3'’= EBCDIC ADDR 
PRHDR DC X'00' ‘PRINT HEADER' SWITCH 
SAVER DC A (*-* DCP MACH CHK INT XFER VCTR SAVE AREA 
SDCP DC A (#-* DCP PRIORITY INT XFER VCTR SAVE ARFA 
LSR  EQU  LSB+4 'LSR' LOCATION WITHIN LSB AREA 
MCK EQU  xX"OOOAt "MACHINE CHECK' CLASS INT XFER VCTR 
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WDATA 
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X'00! ‘COMMAND REJECT TEST" IDCB 
X'008 DEVICE ADDRESS 
A (0) DATA WORD (CONTENTS UNPREDICTABLE) 
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fey) 
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"PREPARE! DCB 
ee ADDR 


"PREPARE DATA‘ BYTE 


"READ' TIDCB 
DEVICE ADDR 


"READ DATA! BYTE 


"RESET-TO-DIAG-WRAP* IDCB 
i ADDR 
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"READ-ID' IDCB 
Deere ADDR 
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vee ADDR 
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Cy DID NOT GET AN INTERRUPT FROM TTY! 


CV INCORRECT OIO COND CODE ON ''READ ID'*'** 


CORRECT DEVICE ID RETURNED ON **READ ID!!! 


ORRECT OIO COND CODE ON '*RESET!!¢ 
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ORRECT OITO COND CODE ON '*PREPARE!?#!? 


60 WMO MO MO OM 


oH 


ERRUPTED AFTER SEQ: RESET, PREP-DISABLED! 
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INTERNAL 


IRCPM DC 
IR DC 
DC 
IcP DC 
DC 
*« 
TRCND DC 
nig "MACHINE 
MCMSG DC 
DC 
STEP DC 
DC 
PSW DC 
DC 
IAR DC 
DC 
IDCBX DC 
DC 
* 
HCHND DC 
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CORRECT OIO COND CODE ON "WRITE!!! 
TERRUPTED AFTER SEQ: PREP-DISABLED, WRITE® 
CORRECT OTO COND CODE AFTER SEQ: PREP~-DISABLED, WRITE, W 


TERRUPTED AFTER SEQ: PREP-DISABLED, WRITE, WRITE! 


om O-2 OH OH OH one 
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INTERRUPT AFTER SEQ: WRITE, PREP-ENABLED' 
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, INTERRUPT AFTER SEQ: PREP-ENABLED, WRITES 


TERRUPTED TO WRONG LEVEL* 
CORRECT DVC ADDR IN R7 ON INTERRUPT - ENTERED VIA CORREC 
VALID INTERRUPT ON **READ ID#!! 
EXPECTED INTERRUPT COND CODE! 
TERR UPTED AFTER SEQ: MASK, WRITE, RESET TO DIAG WRAP! 
CORRECT DATA READ AFTER WRITE X*'OO'* IN DIAG WRAP! 
TA CLOBBERED IN **OVERROUN RCV'* OPERATION! 
EXPECTED INTERRUPT! 
CORRECT OTO COND CODE IN *'CMD REJ'* TEST! 
EXPECTED INTERRUPT IN *'*CMD REJ''" TEST! 
CORRECT OIO COND CODE ON "'RESET TO DIAG WRAP!!! 


CORRECT OIO COND CODE ON **READ!!! 
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A (MSGND) END OF ERROR MESSAGE TEXT STRING 


'RINE/CKPT! MESSAGE TEXT 
C'INTERNAL RINE = ' 

2A (*-* 

Ct INTERNAL CKPT = ' 


A (*-*) 
x'00' TERMINATOR 
A (IRCND) END OF INTERNAL RTNE/CKPT MESSAGE 


CHECK STATUS® MESSAGE TEXT 
C*'mMCK ie q 4000' 


O° TERMINATOR 
A (MCMND) END OF MESSAGE TEXT STRING 
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METHOD: THIS ROUTINE INITIALIZES THE IDCB'S AND SERVES 


CONDITION CODES 
oro INTERRUPT 


DVC NOT ATTACHED 
DEVICE BUSY 


EXCEPTION 
COMMAND REJECT DEVICE END 
ATTENTION 
INTFC DATA CHECK 
ATIN & EXCEPTION 
OTO ACCEPTED ATTN & DEVICE END 
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oe eRe He He a FI I I I ROR ORI RIOR OR RO Fk RK Fk OK 
NAME: 
PURPOSE: Bebe ee PROGRAM EXECUTION AND INTERFACE WITH THE 


RTOO (INITIALIZATION AND DCP INTERFACE) 


AS THE 
GENERAL INTERFACE WITH THE DCP. THE ID OF THE DEVICE AT 
THE SPECIFIED DEVICE ADDRESS IS VERIFIED. 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
782 * OO2BDE 680C 262E 899 Io RDW RESET TO DIAG WRAP 
002AD2 783 T4000 EQU * O02BE2 6F04 2Cc00 900 BCC 7,RT205 IF GOOD CC, BRANCH 
QOO2ZAD2 6FOD 37E8 784 RTOO MVW R7 ,GOBCK+2 SET RETURN LINK 901 * 
OO2AD6 4020 2578 4000 785 MVWI X¥'4000',RTNE INITIALIZE ROUTINE AND Q0O02BE6 TOAE 902 CPLSR RS SET "RECEIVED! COND CODE INDR 
OO2ADC 4020 257A 0000 786 MVWI O,CKPT * CHECKPOINT VALUES OO2BE8 356A 903 SRL 13,R5 * 
OO2AE2 6808 261E 787 MVW SAVER,RO WE ALREADY SAVED VECTOR ENTRY ? QO2BEA C528 2581 904 MVB R5,RIOcC * 
OO2AE6 1825 788 JNZ RTO1 YES, JUMP OO2BEE 4124 2A0C 905 MVA MS616,R1 MOVE MESSAGE TO BUFFER 
789 * OO2BF2 4224 258A 906 MVA BUFFR,R2 * 
OO2AE8 8828 OOOA 261E 790 MVW MCK,SAVER NO. SAVE IT OO2BF6 4724 0030 907 MVWI MSG17-MSG16,R7 * 
OO2ZAEE 4020 OOOA 37EA 791 MVA MACHK, MCK PUT OUR OWN ROUTINE SIA IN THERE OO2BFA 2944 908 MVFN fe (R2) * 
OO2AF4 C020 19D0 792 MVB DEVADD, RO GET DEVICE ADDRESS OO2BFC 6802 384A 909 PRINT OUTPUT THE MESSAGE 
OO2AF8 7800 OOFF 793 NWI X'OOFF! RO STRIP OFF PROPOGATED BITS 910 * 
OO2AFC C028 2623 794 MVB RO,CRTDA SET 002C00 4020 257A 0002 911 RT205 MVWI 2,CKPT *>*>*> R 2, CP 2 
002B00 C028 2627 795 MVB RO,PRPDA * EACH 002C06 8028 260E 2629 912 MVB L¥L0,PDATA SET 'PREP' IDCB FOR LVL 0, DISABLED 
002B04 C028 262B 796 MVB RO,RDDA * IDCB 002cOC 8028 25cc 2580 913 MVB CC7,XIOCC SET "EXPECTED! COND CODE INDR 
002B08 C028 262F 797 MVB RO,RDWDA * WITH 002C12 9028 2626 257C 914 MVD PREPR, IDCB SET "IDCB* INDR 
0OO2B0C C028 2633 798 MVB RO,RIDDA * SPECIFIED 002C18 680C 2626 915 Io PREPR PREPARE TTY ATTACHMENT 
002B10 C028 2637 799 MVB RO,RSTDA * DEVICE 002C1C 6F04 2C3A 916 BCC 7,RT20A IF ACCEPTED, BRANCH 
002B14 C028 263B 800 MVB RO,WRTDA * ADDRESS 917 * 
002B18 3009 801 SLL 1,0 SET UP VECTOR ADDR FOR THIS DVC ADDR 919 * 
002B1A 0030 802 ABI x30" RO * 002C20 T7OAE 920 CPLSR R5 SET "RECEIVED! COND CODE INDR 
002B1C 680D 25D6 803 MVW RO,DAPTR SAVE IT 002C22 356A 921 SRL 13,R5 * 
002B20 8808 2620 804 MVW cr 6 7 SDCP SAVE THE CONTENTS 002C24 C¢528 2581 922 MVB R5,RIOCC * 
002B24 4000 25D8 805 MVA DDB, (RO) SET TRANSFER VECTOR 002C28 4124 26D2 923 MVA mS603,R1 MOVE MESSAGE TO BUFFER 
002B28 4324 2576 806 MVA TuIh, B3 SET RAS DISPLAY POINTER 002C2C 4224 258A 924 MVA BUFFR,R2 * 
002B2C 9028 25CE 2580 807 MVD ccx, XIOcc INITIALIZE CC INDRS 002C30 4724 0025 925 MVWI MSGO4-MSG03,R7 * 
808 * 002C34 2944 926 MVFN (RI) (R2) * 
B10 3 I IO I RI IGOR CIO ak kkk dedi acaiak of ake ak 002C36 6802 384A ee 7 PRINT OUTPUT THE MESSAGE 
811 * 
B12 : NAME: RTO1 (READ DEVICE IDENTIFICATION) 002C3A 6F03 3884 B50 RT20A BAL DEL,R7 WAIT FOR INTERRUPT 
814 * PURPOSE: TO INSURE THE PROPER RESPONSE(S) ARE RECEIVED FROM A Q02C3E 4020 257A 0003 931 MVWI 3,CKPT *>*>*> R 2, CP 3 
815 * "READ ID' COMMAND. 002C44 C825 25DE 932 MVWZ THTIN, RO DID AN INTERRUPT OCCOR ? (SHOU LD NOT) 
816 * 002Cc48 1009 933 JZ RT20C NO, JUMP 
817 * METHOD: THE 'READ ID* COMMAND IS MONTTORED FOR THE RETURN OF THE 934 * 
818 * PROPER CONDITION CODE, AND THE CORRECT DEVICE ID. SHOULD OO2C4UA 4124 26F7 935 MVA MSGO4,R1 MOVE MESSAGE TO BUFFER 
819 * AN ERROR OCCUR, IT WILL BE REPORTED, IF APPLICABLE. OO2C4HE 4224 258A 936 MVA BUFFR,R2 * 
820 * 002C52 4724 002C 937 MVWI MSGO5-MSGO4,R7 * 
821 RR OK a II i RR doko folate dtaike totok tet a 002c56 2944 938 MVFN (RI) (R2) * 
892 * 002C58 6802 384A 939 B PRINT OUTPUT THE MESSAGE 
002B32 4020 2578 0001 823 RTO1 MVWI 1,RTNE *>*>*> R 1 940 * 
002B38 4020 257A 0001 824 MVWI 1,CKPT *>* >*> cep 1 002c5c 4020 257A 0004 941 RT20C MVWI 4,CKPT *>*>*k> R 2, CP 4 
002B3E 4020 25D8 2B9C 825 MVA 1§S01, DDB SET INT SERVICE ADDRESS 002Cc62 8029 25DC 2629 942 OB THIT, PDATA SET '"PREP* IDCB TO LVL 0, ENABLED 
OO2B44 C825 25DE 826 MVWZ INTIN,RO INITIALIZE ‘INT OCCURRED! INDR 002c68 8028 25cc 2580 943 MVB cc7,Xto0cc SET "EXPECTED COND CODE! INDR 
002B48 8028 25cC 2580 827 MVB cc7, xtocc SET "EXPECTED! COND CODE INDR O0O02C6E 9028 2626 257C 944 MVD PREPR, IDCB SET "IDCB' INDR 
OO2B4E 9028 2632 257C 828 MVD RDIb, IDCB SET "IDCB* INDR 002C74 680C 2626 945 Io PREPR PREP TTY ATTACHMENT 
002B54 680C 2632 829 To RDID READ DEVICE ID 002C78 6F04 2C96 946 BCC 7,RT20H IF CC OKAY, BRANCH 
002B58 6F04 2B76 830 BCC 7,RT105 IF GOOD CC, BRANCH 94u7 * 
831 * 002C7C TOAE 948 CPLSR R5 SET "RECEIVED! COND CODE INDR 
002B5C 7OAE 832 CPLSR RS SET "RECEIVED! COND CODE INDR OO2C7E 356A 949 SRL 13,R5 * 
OO2B5E 356A 833 SRL 13,R5 * 002Cc80 C528 2581 950 MVB R5,RIOCC * 
002B60 C528 2581 834 MVB R5,RIOCC * 002C84 4124 26D2 951 MVA MS603,R1 MOVE MESSAGE TO BUFFER 
002B64 4124 2660 835 MVA MSG600,R1 MOVE MESSAGE TO BUFFER 002C88 4224 258A 952 MVA BUFFR,R2 * 
002B68 4224 258A 836 MVA BUFFR,R2 * Q002C8C 4724 0025 953 MVWI MSGO4-MSG03,R7 * 
002B6C 4724 0025 837 MVWI MSGO1-MSGO00,R7 * 002C90 2944 954 MVFN A re * 
002B70 2944 838 MVEN (RA) (R2) * 002C92 6802 384A 955 PRINT OUTPUT THE MESSAGE 
002B72 6802 384A 839 : PRINT OUTPUT THE MESSAGE 956 
002B76 4020 257A 0002 841 RT105 MVWI 2,CKPT *>*>*> R 1, CP 2 002C96 6F03 3884 959 RT20H BAL DEL,R7 WAIT FOR INTERRUPT 
0O02B7C 802B 2586 2635 842 CB AfTID, DVCID INSURE ID IS CORRECT 960 * 
002B82 101E 843 JE RTO2 JUMP IF If IS Q002C9A 4020 257A 0005 961 MVWI 5,CKPT *>*>*> R 2, CP 5 
B44 * 002CAO0 C825 25DE 962 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD NOT) 
002B84 8028 2635 2584 845 MVB DVCID,IDRDA SET "RECEIVED ID* INDR 002CA4u 1009 963 JZ RT20L NO, JUMP 
OO2B8A 4124 2685 846 MVA MSGO1,R1 MOVE MESSAGE TO BUFFER 964 * 
OO2B8E 4224 258A 847 MVA BUFFR,R2 7% OO02CA6 4124 2723 965 MVA MSGO5,R1 MOVE MESSAGE TO BUFFER 
002B92 4724 OO2A 848 MVWI MSGO2-MSGO01,R7 * OO2CAA 4224 258A 966 MVA BUFFR,R2 * 
002B96 2944 849 MVFN (RI) (R2) * OO2CAE 4724 OO3A 967 MVWI MSGO6-MSG05,R7 * 
002B98 6802 384A 850 B PRINT OUTPUT THE MESSAGE 002CB2 2944 968 MVFN R1) , (R2) * 
851 * 002CB4 6802 384A 969 RINT OUTPUT THE MESSAGE 
SRM ST PLS L ESSE ET SES SES TFL SSPE SL SPS SST SSS PSST SSS SCS STS CS STC SCS SS SCS STS SS CLS SSS Se + 3 970 * 
854 * 002CB8 4020 257A 0006 971 RT20L MVWI 6,CKPT *>*>*> R 2, CP 6 
855 * NAME: ISSO1 (RTO1 INTERRUPT SERVICE SUBROUTINE) OO2CBE 8028 260E 2629 972 MVB LV¥LO,PDATA SET "PREP* IDCB TO LVL 0, DISABLED 
856 * 002cCC4 8028 25CC 2580 973 MVB cc7, XIo0cc SET "EXPECTED COND CODE! INDR 
857 * PURPOSE: TRAP UNEXPECTED INTERRUPTS O0O02CCA 9028 2626 257C 974 MVD PREPR,IDCB SET "IDCB* INDR 
858 * : 002CDO0 680C 2626 975 To PREPR PREP TTY ATTACHMENT 
eee ; METHOD: BUILD A COND CODE, LEVEL AND DVC ADDR IW R5. O002CD4 6F04 2CF2 ane PA BCC 7,RT20R CC OKAY, BRANCH 
SIM Lt Ltt ft StS tT SL ELSES SPSS SS SS STS SS TS SS SSS SPS SS CSS SS SS CT SCS SC SS STS SSCS LSS TCLS Ss 2 3 002CD8 TOAE 978 CPLSkK RS SAVE COND CODE 
862 * OO2CDA 356A 979 SRL 13,R5 * 
002B9C 7OAE 863 ISSO1 CPLSR RS SET "RECEIVED' COND CODE INDR 002CDC C528 2581 980 MVB R5,RIOCC * 
OO2B9E 356A 864 SRL 13,R5 * QO2CEO 4124 26D2 981 MVA mSGO3,R1 MOVE MESSAGE TO BUFFER 
OO2BA0 C528 2583 865 MVB R5,RINCC * OO2CE4 4224 258A 982 MVA BUFFR ,R2 * 
OO2BA4 7819 866 CPCL RO SET "LEVEL" INDR O0O02CE8 4724 0025 983 MVWI MSGO4-MSG03,R7 * 
002BA6 C028 2585 867 MVB RO, LEVEL * QOO02CEC 2944 984 MVFN 83) (R2) * 
OO2BAA C728 2584 868 MVB R7,IDRDA SET "DEVICE ADDRESS! INDR OO2CEE 6802 384A 985 RINT OUTPUT THE MESSAGE 
OO2BAERE 4124 28D4 869 MVA MSGOE,R1 MOVE MESSAGE TO BUFFER 986 * 
OO2BB2 4224 258A 870 MVA BUFFR,R2 * QO02CF2 4020 257A 0007 987 RT20R MVWI 7 (CKPT *>*>*> R 2, CP 7 
OO2BB6 4724 OO1F 871 MVWI MSGOF-MSGOE,R7 * QOO0O2CF8 4020 263C 008D 988 MVWI xX'OO8D' ,WDATA-1 SET IDCB TO WRITE 'C/R* OUT 
OO2BBA 2944 872 MVFN (R11), (R2) * QO2CFE 8028 25cc 2580 989 MVB cc7, X10€c SET ‘EXPECTED COND CODE INDR 
873 * 002D04 9028 263A 257C 990 MVD WRITE, IDCB SET "IDCB*' INDR 
OO2BBC 6802 384A 874 B PRINT OUTPUT THE MESSAGE QOO2D0A 680C 263A 994 tO WRITE ATTEMPT TO CAUSE AN INT TO TEST PREP 
875 * OO2D0E 6F04 2D2cC 992 BCC 7,RT20W IF ACCEPTED, BRANCH 
SWMME Lett tS PSST PSE EES ST STS SS SS SSS TST TSS SSP SS SS Se Pe ee eee TCSP ST SSS STC SS SSS SS ST Sy 993 * 
878 * 002D12 TOAE 994 CPLSR R5 SAVE COND CODE 
879 * NAME: RTO2 (RESET AND PREPARE TESTS) 002D14 356A 995 SRL 13,R5 * 
880 * 002D16 C528 2581 996 MVB R5,RIOCC *x 
881 * PURPOSE: INSURE THE TTY ATTACHMENT WILL ACCEPT RESET COMMANDS 0O02D1A 4124 275D 997 MVA MSG06,R1 MOVE MESSAGE TO BUFFER 
882 * AND PREPARE COMMANDS, AND RETURN THE PROPER CONDITION Q002D1E 4224 258A 998 MVA BUFFR,R2 * 
833 * CODES TO FACH. THE PREPARE REGISTER IS THEN TESTED 002D22 4724 0023 999 MVWI MSGO7-MSG06,R7 * 
884 * ALONG WITH THE PROPER UTILIZATION OF THE PREPARE DATA 002D26 2944 1000 MVFN Bi) (R2) * 
oe . ASSOCIATED WITH THE INTERRUPT REQUEST PRESENTATION. 002D28 6802 384A voes : RINf OUTPUT THE MESSAGE 
887 * METHOD: THE "RESET" COMMAND IS ISSUED, THEN THE PREPARE REG IS 1004 * 
888 * TESTED FOR SETTINGS OF EACH LEVEL, BOTH ENABLED AND 002D2c 6F03 3884 1005 RT20W BAL DEL,R7 WAIT FOR INTERRUPT 
889 * DISABLED. THE ATTACHMENT IS THEN TESTED FOR CONDITIONS 1006 * 
890 * OF "INTERRUPT PENDING, "RESET AND "INTERRUPT REQUEST! 002D30 4020 257A 0008 1007 MVWI 8,CKPT *>*>*> R 2, CP 8 
891 * 002D36 C825 25DE 1008 MVWZ THTIN, RO INTERRUPT OCCUR ? (SHOULD NOT) 
B32 A HR IO ICR RR III IOI RII III I IO Fo ta ik ik tio 002D3A 1009 1009 JZ RT211 NO, JUMP 
93 * 1010 * 
002BCO 4020 2578 0002 894 RTO2 MVWI 2,RTNE *>*>*> R 2 002D3c 4124 2780 1011 RT20Z MVA MSGO7,R1 MOVE MESSAGE TO BUFFER 
002BC6 4020 257A 0001 895 MVWI 1,CKPT *> *>*> cP 1 002D40 4224 258A 1012 MVA BUFFR, R2 * 
0O02BCC 4020 25D8 31DC 896 MVA 1§S02,DDB FLIP DDB OO2D44 4724 002C 1013 MVWI MSGO8-MSG07,R7 * 
002BD2 8028 25cCC 2580 897 MVB cc7,xtocc SET "EXPECTED* COND CODE INDR O002D48 2944 1014 MVFN guy (R2) * 
002BD8 9028 262E 257C 898 MVD RDW,1IDCB SET "IDCB* INDR OO2D4A 6802 384A 1015 RINT OUTPUT THE MESSAGE 
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T4000 --- TTY ATTACHMENT AUTO-SEQUENCE MAP P/N=1635221 EC=374888 PAGE 05 T4000 --- TTY ATTACHMENT AUTO-SEQUENCE MAP P/N=1635221 EC=374888 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 
1016 * OO2EA8 8028 25cC 2580 1133 MVB CC7,XIOCC SET "EXPECTED COND CODE! INDR 
OO2D4UE 4020 257A 0009 1017 RT211 MVWI 9,CKPT *>*>*> R 2, CP 9 OO2Z2EAE 9028 263A 257C 1134 MVD WRITE, IDCB SET "IDCBt INDR 
002D54 8028 25c8 2580 1018 MVB céi,xtocc SET "EXPECTED COND CODE* INDR OO2EB4 680C 263A 1135 IO WRITE ATTEMPT TO CAUSE AN INT TO TEST PREP 
002D5A 9028 263A 257C 1019 MVD WRITE, IDCB SET "IDCBt INDR OO2EB8 6FO4 2ED6 1136 BCC 7,RT23C IF ACCEPTED, BRANCH 
002D60 680C 263A 1020 bie) WRITE FORCE 'Busy' 1137 * 
002D64 6904 2D82 1021 BCC 1,RT216 COND CODE OK, BRANCH QOO2EBC 7OAE 1138 CPLSR R5 SAVE COND CODE 
1022 * QOO2EBE 356A 1139 SRL 13,R5 * 
002D68 TOAE 1023 CPLSR R5 SAVE COND CODE 002EFCO C528 2581 1140 MVB  R5,RIOCC * 
OO2D6A 356A 1024 SRL 13,R5 *x OO2ZEC4 4124 275D 1141 MVA NSG06,R1 MOVE MESSAGE TO BUFFER 
002D6C C528 2581 1025 MVB R5,RIOCC * OO2ZEC8 4224 258A 1142 MVA BUFFR, R2 = 
002D70 4124 27AC 1026 MVA mS608,R1 MOVE MESSAGE TO BUFFER OO2ECC 4724 0023: 1143 MVWI MSGO7-MSG06,R7 * 
002D74 4224 258A 1027 MVA BUFFR,R2 * OO2EDO 2944 17144 MVFN (R1), (R2) * 
002D78 4724 OO3F 1028 MVWI MSGO9-MSGO8,R7 *x QOO2ED2 6802 384A 1145 PRINT OUTPUT THE MESSAGE 
0O0O2D7C 2944 1029 MVFN (Ra) (R2) * 1146 * 
002D7E 6802 384A 1030 7 B RIN OUTPUT THE MESSAGE OO2ED6 6F03 3884 414) RT23C BAL DEL,R7 WAIT FOR INTERRUPT 
002D82 6F03 3884 1032 RT216 BAL DEL,R7 WAIT FOR INTERRUPT OO2ZEDA 4020 257A 0011 1149 MVWI X'11",CKPT *>*>*> R 2, CP 11 
1033 * OO2EFEO C825 25DE 1150 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD NOT) 
002D86 4020 257A OOOA 1034 MVWI X'A" CKPT *>*>*> R 2, CP A OO2EE4 1009 1151 JZ RT240 NO, JUMP 
002D8C C825 25DE 1035 MVWZ INTIH, RO INTERRUPT OCCUR ? (SHOULD NOT) 1152 * 
002D90 1009 1036 RT21B NO, JUMP OO2EE6 4124 2780 1153 MVA MSGO7,R1 MOVE HESSAGE TO BUFFER 
1037 * OO2FEA 4224 258A 1154 MVA BUFFR, R2 * 
002D92 4124 27EB 1038 MVA  MSGO9,R1 MOVE MESSAGE TO BUFFER OO2ZEEE 4724 002C 1155 MVWI MSGO8-MSG07,R87 * 
002D96 4224 258A 1039 MVA  BUFFR,R2 * QO2ZEF2 2944 1156 MVFN fot) (R24) ‘i 
OO2D9A 4724 0033 1040 MVWI MSGOA-MSG09,R7 *x OO2ZEF4 6802 384A 1157 B RINT OUTPUT THE MESSAGE 
OO2D9E 2944 1041 MVFN (Ri) (R2) * 1158 * 
OO2DA0 6802 384A 1042 B RINT OUTPUT THE MESSAGE 1160 * 
1043 * OO2ZEF8 4020 257A 0012 1161 RT24O0 MNVWI X'12",CKPT *>*>*> R 2, CP 12 
1045 * OO2EFE 8028 25C8 2580 1162 MVB Cc1,xf0cc SET "EXPECTED COND CODE' INDR 
1046 ** TEST PREPARE TO LEVEL 0, ENABLED OO2FO4 9028 263A 257C 1163 MVD WRITE, IDCB SET 'IDCB' INDR 
1047 * OO2FOA 680C 263A 1164 ice) WRITE FORCE 'BUSY'® 
OO2DA4 4020 257A 000B 1048 RT21B MVWI X'B',CKPT *>*>*> R 2, CP B OO2FOE 6904 2F2C 1165 BCC 1,RT245 COND CODE OK, BRANCH 
OO2DAA 8029 25DC 2629 1049 OB IBIT,PDATA SET "I-BIT' IN PREP FIELD 1166 * 
0O2DBO 8028 25cCc 2580 1050 MVB CC7, XIOCC SET "EXPECTED COND CODE! INDRS OO02F12 TJOAE 1167 CPLSR R5 SAVE COND CODE 
002DB6 8028 25ccC 2582 1051 MVB  cC7,XINCC * OO2F14 356A 1168 RL 13,R5 * 
002DBC 9028 2626 257C 1052 MVD PREPR,IDCB SET "IDCB' INDR O02F16 C528 2581 1169 NVB R5,RIOCC * 
002DC2 680C 2626 1053 To Pp PREP, ENABLED OO2FIA 4124 27AC 1170 MVA MSG08,R1 MOVE MESSAGE TO BUFFER 
002DC6 6F04 2DE4 1054 BCC 7,RT220 COND CODE OK, BRANCH OO2FIE 4224 258A 1171 MVA_ BUFFR,R2 - 
1055 * 002F22 4724 003F 1172 MVHI MSGO9-MSGO08,R7 2: 
1056 ** FIRST INTERRUPT SHOULD OCCUR AT THIS POINT. EXECUTION SHOULD RESUME QO2F26 2944 1173 NVFN ae (R2) * 
13) oe ONS Eee (3), AT LOCATION 'RT220' AFTER THE INTERRUPT HAS BEEN OO2F28 6802 384A sige . RING OUTPUT THE MESSAGE 
ae = 1059 x 002F2C 6F03 3884 rigs RT245 BAL DEL, R7 WAIT FOR INTERRUPT 
DCA AE 0 CPLSR R5 SAVE COND CODE 
002DCC 356A 1061 SRL 13,R5 x 002F30 4020 257A 0013 1178 MVWI xX'13",CKPT *>*>¥*> R 2, CP 13 
OO2DCE C528 2581 1062 MVB  R5_RToOcCC * 002F36 C825 25DE 1179 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD NOT) 
002DD2 4124 26D2 1063 MVA MS603,R1 MOVE MESSAGE TO BUFFER QOO2F3A 100D 1180 JZ RT249 NO, JUMP 
0O0O2DD6 4224 258A 1064 MVA  BUFFR, * 1181 * 
OO2DDA 4724 0025 1065 MVWI MSGO4-MSG03,R7 * Q02F3C T7OAE 1182 CPLSR R5 SAVE COND CODE 
OO2DDE 2944 1066 MVFN fR1) (R * QO2F3E 356A 1183 SRL 13,R5 * 
OO2DE0 6802 384A 1067 B RING OUTPUT THE MESSAGE QO2F4O0 C528 2581 1184 MVB R5,RIOCC * 
1068 * OO2F44 4124 27EB 1185 MVA uS609,R1 MOVE MESSAGE TO BUFFER 
OO2DE4 6F03 3884 1069 RT220 BAL  DEL,R7 WAIT FOR INTERRUPT OO2F48 4224 258A 1186 MVA_ BUFFR,R2 * 
1070 * OO2F4C 4724 0033 1187 MVWI MSGOA-NSG09,R7 * 
002DE8 4020 257A 000C 1071 MVWI X'C!,CKpT *>*>*> R 2, CP C O0O2F50 2944 1188 NVFN Sa} (R2) * 
QO2DEE C825 25DE 1072 NVWZ INTIN, RO INTERRUPT OCCUR ? (SHOULD) OO2F52 6802 384A 1189 PRINT OUTPUT THE HESSAGE 
Q0O2DF2 1809 1023 P JINZ RT228 YES, JUMP Wee : 
OO2DF4 4124 281E 1075 MVA MSGOA,R1 MOVE MESSAGE TO BUFFER OO2F56 4020 257A 0014 1193 RT249 MVWI X'14" | CKPT *>*>*> R 2, CP 14 
OO2DF8 4224 258A 1076 MVA BUFFR,R2 * 002F5C 8029 25DC 2629 1194 OB TBIT, PDATA SET 'I-BIT' IN PREP FIELD 
OO2DFC 4724 002C 1077 MVWI MSGOB-MSGOA,R7 * 002F62 8028 25cCc 2580 1195 MVB  cc7,XtIocc SET "EXPECTED COND CODE! INDRS 
002E00 2944 1078 MVEN (Ri). (R2) * OO2F68 8028 25C9 2582 1196 MVB CC2,XINCC * 
002F02 6802 384A 1079 B RING OUTPUT THE MESSAGE OO2F6E 9028 2626 257C 1197 MVD  PREPR,IDCB SET "IDCB' INDR 
1080 * OO2F74 680C 2626 1198 TO PREPR PREP, ENABLED 
1082 * 002F78 6F04 2F96 1199 BCC 7,RT24UE COND CODE OK, BRANCH 
002E06 4020 263C OOOA 1083 RT228 MVWI X'OOOA',WDATA-1 SET IDCB TO WRITE 'L/F* OUT 1260 * 
002EF0C 8028 25ccC 2580 1084 MVB  CC7,XI0CC SET "EXPECTED COND CODE" INDRS QO2F7C TJOAE 1201 CPLSR RS SAVE COND CODE 
002E12 8028 25¢9 2582 1085 MVB CC2,XINCC * OO2F7E 356A 1202 SRL 13,R5 * 
002E18 9028 263A 257C 1086 MVD WRITE, IDCB SET 'IDCB' INDR QOO2F80 C528 2581 1203 MVB = R5,RIOCC * 
OO2E1E 680C 263A 1087 To WRITE FORCE INTERRUPT OO2F84 4124 26D2 1204 MVA S603,R4 MOVE MESSAGE TO BUFFER 
002E22 6F04 2E40 1088 BCC 7,R81T22D IF COND CODE OK, BRANCH OO2F88 4224 258A 1205 MVA_ =BUFFR,R2 * 
1089 * OO2F8C 4724 0025 1206 MVHI MSGO4-—MSG03,R7 * 
002E26 T7OAE 1090 CPLSR R5 SAVE COND CODE QO2F90 2944 1207 MVFN (EN), (R2) = 
002E28 356A 1091 SRL 13,R5 * 002F92 6802 384A 1208 PRINT OUTPUT THE MESSAGE 
OO2E2A C528 2581 1092 MVB R5,RIOCC * 1209 * 
OO2E2E 4124 275D 1093 MVA MSG06,R1 MOVE MESSAGE TO BUFFER OO02F96 6F03 3884 1210 RT24E BAL DEL,R7 WAIT FOR INTERRUPT 
002E32 4224 258A 1094 MVA BUFFR, R2 * 1211 * 
002BR36 4724 0022 1095 MVWI MSGO7-MSG06,R7 x OO2F9A 4020 257A 0015 1212 MVWI X*'15',CKPT *>*>*> R 2, CP 15 
OO2E3A 2944 1096 MVFN (RI) (R2) x OO2FAO0 C825 25DE 1213 MVWZ INTIN, RO INTERRUPT OCCUR ? (SHOULD) 
002E3C 6802 384A 1937 r PRINT OUTPUT THE MESSAGE OO2FA4 180D 1218 ; JNZ RT25A YES, JUMP 
002E40 6F03 3884 1099 RT22D BAL DEL,R7 WAIT FOR INTERRUPT QOO2FA6 7TOAE 1216 CPLSR R5 SAVE COND CODE 
1100 * OO2FA8 356A 1217 SRL 13,R5 * 
OO2E44 4020 257A OO0E 1101 MVWI X'E*,CKPT *>*>*> R 2, CP E QO2FAA C528 2581 1218 MVB  R5,RIOCC * 
QOO2E4A C825 25DE 1102 MVWZ INTIN, RO INTERRUPT OCCUR ? (SHOULD) QO2FAE 4124 281E 1219 MVA MSGOA,R1 MOVE MESSAGE TO BUFFER 
OO2E4E 1809 1103 JNZ  RT231 YES, JUMP OO2FB2 4224 258A 1220 MVA_ BUFFR,R2 * 
1104 * OO2FB6 4724 002C 1221 MVWI MSGOB-MSGOA,R7 * 
002E50 4124 284A 1105 MVA MSGOB,R1 MOVE MESSAGE TO BUFFER OO2FBA 2944 1222 MVFN (Ri) (R2) * 
00O2E54 4224 258A 1106 MVA BUFFR, R2 *x OO2FBC 6802 384A 1223 PRING OUTPUT THE MESSAGE 
002E58 4724 002C 1107 MVWI MSGOC-MSGOB,R7 * 1224 * 
QOO2E5C 2944 1108 MVFN {iy (R2) * 1226 * 
OO2E5E 6802 384A 1109 B RINT OUTPUT THE MESSAGE QO2FCO 4020 257A 0018 1227 RT25A MVWI xX'18',CKPT *>*>*> R 2, CP 18 
1110 * 002FC6 8028 25cc 2580 1228 HVB  CcC7,xfocc SET "EXPECTED COND CODE! INDRS 
1112 * OO2FCC 8028 25c9 2582 1229 MVB CC2,XINCC * 
1113 ** TEST PREPARE TO LEVEL 1 QOO2FD2 9028 263A 257C 1230 MVD WRITE, IDCB SET *IDCB* INDR 
1114 * QOO2FD8 680C 263A 1231 bdo) WRITE FORCE INTERRUPT 
002E62 4020 257A OOOF 1115 RT231 MVWI X'F*,CKPT *>*>*> R 2, CP F OO2FDC 6F04 2FFA 1232 BCC 7,RT25E IF COND CODE OK, BRANCH 
002E68 8028 260F 2629 1116 MVB LVL1,PDATA SET 'PREP' IDCB TO LVL 1, DISABLED 1233 * 
OO2E6E 8028 25cCc 2580 1117 MVB CC7,XI0CC SET "EXPECTED COND CODE! INDRS QO2FEO 7OAE 1234 CPLSR R5 SAVE COND CODE 
002E74 8028 25CE 2582 1118 MVB cCX,XINCC # QOO2FE2 356A 1235 SRL 13,R5 - 
OO2ZE7A 9028 2626 257C 1119 MVD PREPR, IDCB SET "IDCB' INDR OO2FE4 C528 2581 1236 NVB R5,RIOCC % 
002E80 680C 2626 1120 Io PREPR PREP TTY ATTACHMENT OO2FE8 4124 275D 1237 HVA NSG06,R1 MOVE MESSAGE TO BUFFER 
002E84 6F04 2EA2 1121 BCC 7,RT236 CC OKAY, BRANCH QO2FEC 4224 258A 1238 MVA_ BUFFR,R2 * 
1122 * OO2FFO 4724 0023 1239 MVWI MSGO7-MSG06,R7 * 
002E88 T70AE 1123 CPLSR R5 SAVE COND CODE OO2FF4 2944 1240 MVFN beth R2) = 
OO2E8A 356A 1124 SRL 13,R5 * OO2FF6 6802 384A 1241 RINT OUTPUT THE MESSAGE 
0O02E8C C528 2581 1125 MVB R5,RIOCC * 1242 * 
002F90 4124 26D2 1126 MVA  MSGO3,R1 MOVE NESSAGE TO BUFFER QO2FFA 6F03 3884 1243 RT25E BAL DEL,RT WAIT FOR INTERRUPT 
0O2E94 4224 258A 1127 MVA BUFFR,R2 * 1244 * 
002E98 4724 0025 1128 MVWI MSGO4-MSGO3,R7 * OO2FFE 4020 257A 0019 1245 MVWI X'19",CKPT *>*>*> R 2, CP 19 
002E9C 2944 1129 MVEN (R1) (R2) x 003004 C825 25DE 1246 NVWZ2 INTIN, RO INTERRUPT OCCUR ? (SHOULD) 
OO2E9E 6802 384A 1130 ? B PRINf OUTPUT THE MESSAGE 003008 1809 ion : JNZ RT262 YES, JUMP 
OO2EA2 4020 257A 0010 1132 RT236 MVWI X'410",CKPT *>*>*> R 2, CP 10 OO300A 4124 284A 1249 MVA MSGOB,R1 MOVE MESSAGE TO BUFFER 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO3Z300E 4224 258A 1250 NVA BOFFR,R2 * ° 003174 2944 1368 MVFN R4 R2 * 
003012 4724 002C 1251 MVWI MSGOC-MSGOB,R7 * 003176 6802 384A 1369 B shrhe | OUTPUT THE MESSAGE 
003016 2944 1252 MVFN eA) (R2) * 1370 * 
003018 6802 384A 1253 B RI f OUTPUT THE MESSAGE 00317A 4020 257A 0023 1371 RT28A AVWI X*23",CKPT *>*>*> R 2, CP 23 
1254 % 003180 8028 25cCcC 2580 1372 VB cc7,xfocc SET "EXPECTED COND CODE* INDRS 
1256 * 003186 8028 25c9 2582 1373 MVB CC2,XINCC * 
1257 ** TEST PREPARE TO LEVEL 2 ee bts 9028 263A 257C 1374 MVD WRITE, IDCB SET ‘IDCB* INDR 
1258 * 003192 680C 263A 1375 Io WRITE FORCE INTERRUPT 
00301C 4020 257A OO1A 1259 RT262 MVWI X'1A*,CKPT *>*e>*e> R 2 CP 1A 003196 6F04 31B4 1376 BCC 7,RT28F IF COND CODE OK, BRANCH 
003022 8028 2610 2629 1260 MVB LVL2 PDATA SET "PREP* IDCB TO LVL 2, DISABLED 377 * 
003028 8028 25cc 2580 1261 MHVB cc7, XIOCC SET ‘EXPECTED COND CODE! INDRS 00319A T7JOAE 1378 CPLSR R5 SAVE COND CODE 
00302E 8028 25CE 2582 1262 MVB CCX, XINCC * 00319C 356A 1379 SRL 13,R5 % 
003034 9028 2626 257C 1263 MVD PREPR, IDCB SET "IDCB* INDR 00319E C528 2581 1380 HVB R5,RIOCC * 
00303A 680C 2626 1264 to PREPR PREP TTY ATTACHAENT 0031A2 4124 275D 1381 HVA NS606,R1 HOVE MESSAGE TO BUFFER 
Q00303E 6F04 305C 1265 BCC 7,RT267 CC OKAY, BRANCH 0031A6 4224 258A 1382 HVA BUFFR, R2 * 
1266 * 0O031AA 4724 0023 1383 NVWI MSGO7—-NSGO06,R7 % 
003042 TOAE 1267 CPLSR R5 SAVE COND CODE OO3Z31AE 2944 1384 MVFN Eq). (R2) % 
003044 356A 1268 SRL 13,5 0031B0 6802 384A 1385 RINT OUTPUT THE HESSAGE 
003046 C528 2581 1269 MNVB R5,RIOCC * 1386 * 
003048 4124 26D2 1270 MVA NS603,R1 MOVE HESSAGE TO BUFFER 0031B4 6F03 3884 1387 RT28F BAL DEL,R7 WAIT FOR INTERRUPT 
OO0O304R 4224 258A 1271 MVA BUFFR,R2 * 1388 * 
003052 4724 0025 1272 MVWI MSGO4-MSG03,R7 * 0031B8 4020 257A 0024 1389 HVWI X*24",CKPT *>*>*> R 2, CP 24 
003056 2944 1273 MVFN seat (R2) % 0031BE C825 25DE 1390 HVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD) 
003058 6802 384A i230 ‘ RINE OUTPUT THE MESSAGE 0031C2 1809 eee - JNZ RT290 YES, JUMP 
00305C 4020 257A O001B 1276 RT267 MVWI X'1B',CKPT *>*>*> R 2, CP 1B 0031C4 4124 284A 1393 NVA MSGOB,R1 MOVE MESSAGE TO BUFFER 
003062 8028 25ccC 2580 1277 MVB cc7, xfocc SET "EXPECTED COND CODE* INDR 0031C8 4224 258A 1394 MVA BUFFR, R2 * 
003068 9028 263A 257C 1278 MVD WRITE, IDCB SET 'IDCBY INDR 0031CC 4724 002C 1395 HVWI MSGOC-MSGOB,R7 x 
OO306E 680C 263A 1279 Io WRITE ATTEMPT TO CAUSE AN INT TO TEST PREP 0031D0 2944 1396 MVFN ant (R2) % 
003072 6F04 3090 Ween z BCC 7,RT26C IF ACCEPTED, BRANCH 0031D2 6802 384A 133 ‘ B RINT OUTPUT THE MESSAGE 
003076 TJORE 1282 CPLSR R5 SAVE COND CODE 0031D6 680C 262A 1399 RT290 IO READ CLEAR THE "READ! BUFFER 
003078 356A 1283 SRL 13,R5 * 0031DA 503B 1400 J RTO3 JUMP 
OO307A C528 2581 1234 MVB R5,R1IOCC % 1401 * 
00307E 4124 275D 1285 NVA usG06,R1 MOVE MESSAGE TO BUFFER 1403 3 4k oR ok tok tote lato ik tok tok got kook dak tak etek kk iti Rk ke a oie ke tafe ae ae ie eae ie ae he aa fe she ake eae fee 
003082 4224 258A 1286 MVA BUFFR, R2 * 1404 x 
003086 4724 0023 1287 MVWI MSGO7-MSG06,R7 * 1405 * NAME: ISSO2 (RTO2 INTERRUPT SERVICE SUBROUTINE) 
OO0308A 2944 1288 MVFN (Bi) (R2) * 1406 * 
00308C 6802 384A 1289 PRI f OUTPUT THE MESSAGE 1407 * PURPOSE: TO SERVICE INTERRUPTS FROM 'RTO2* AND TO DETERMINE IF: 
1290 * 1408 * THE PROPER LEVEL WAS UTILIZED FOR THE INTERRUPT, THE 
1292 * 1409 * CORRECT DEVICE ADDRESS WAS RETURNED, AND THE PROPER 
003090 6F03 3884 1333 RT26C BAL DEL, R7 WAIT FOR INTERRUPT ‘ane : CONDITION CODE WAS SET UPON INTERRUPTING. 
003094 4020 257A 001C 1295 MVWI X*1C',CKPT *>*>*> R 2, CP IC 1412 * METHOD: THE CONDITION CODE IS TESTED AND ANY ERROR TRAPPED. ALSO, 
0O0309A C825 25DE 1296 MVWZ INTIN, RO INTERRUPT OCCUR ? (SHOULD NOT) 1413 * ANY DEVICE ADDR OR LEVEL ERROR IS LOGGED. 
00309F 100D 1297 JZ RT270 NO, JUMP 1414 * 
1298 * 1415 6% OR Rok dgdiok tO iio ii Ki RR RO i kik dokokatoke datoiite eto ie ae ake ae ate afc ae 
003080 TJOAE 1299 CPLSR R5 SAVE COND CODE 1416 * 
QO30A2 356A 1300 SRL 13,R5 * 0031DC 7OAE 1417 ISSO2 CPLSR R5 SAVE COND CODE 
OO30A4 C528 2581 1301 HVB R5,RIOCC * QOO31DE 356A 1418 SRL 13,25 * 
QOO30A8 4124 2780 1302 MVA nSG07,R1 MOVE MESSAGE TO BUFFER 0031E0 C528 2583 1419 MVB R5,RINCC * 
OO30AC 4224 258A 1303 MVA BUFFR,R2 * OO3Z31E4 C728 2584 1420 NVB R7,1DRDA SET 'DVC ADDR INDR 
0030BO0 4724 002C 1304 MHVWI MSGO8-MSG07,R7 * 0031E8 78F9 1421 CPCL R7 SET "LEVEL! INDR 
OO030B4 2944 1305 MVFN fea) (R2) * 0031EA C728 2585 1422 MVB R7 , LEVEL * 
0030B6 6802 384A 1306 RI f OUTPUT THE MESSAGE OO31EE 802B 2582 2583 1423 CB XINCC,RINCC GET CORRECT INTERRUPT CC ? 
1307 * 0031F4 1009 1424 JE $0200 YES, JUMP 
QOOZ30BA 4020 257A 001D 1308 RT270 MVWI xX*1D'",CKPT *>*>*> R 2, CP 1D 1425 * 
0030CO0 8028 25CC 2580 1309 MVB CC7 xfocc SET "EXPECTED COND CODE! INDR 0031F6 4124 28F3 1426 MVA HSGOF,R1 MOVE MESSAGE TO BUFFER 
0030C6 9028 263A 257C 1310 MVD WRITE, IDCB SET *IDCBt INDR OO31FA 4224 258A 1427 MVA BUFFR, R2 * 
0030CC 680C 263A 1311 Io WRITE FORCE 'BUSY* 0031FE 4724 OO1F 1428 MVWI MSG10~-MSGOF,R87 * 
0030D0 6904 30EE ie i2 . BCC 1,RT275 COND CODE OK, BRANCH 003202 2944 veo : MVFN (R1) , (R2) * 
O0030D4 TOAE 1314 CPLSR R5 SAVE COND CODE 003204 6802 384A 1431 B PRINT OUTPUT THE MESSAGE 
0030D6 356A 1315 SRL 13,R5 * 1432 * 
0030D8 C528 2581 1316 MVB R5,RIOCC * 003208 C120 2629 1433 S0200 MVB PDATA,R1 GET EXPECTED LEVEL 
0030DC 4124 27AC 1317 MVA aSG08,R1 MOVE MESSAGE TO BUFFER 00320C 310A 1434 SRL 1,R1 GET RID OF tI-BIT® 
O0030E0 4224 258A 1318 MVA BUFFR,R2 *% OO320E C124 2585 1435 CB LEVEL,R1 ACTUAL = EXPECTED ? 
OO0O30E4 4724 O0O03F 1319 MVWI MSGO9-MSG08,R7 x 003212 1009 1436 JE S0207 YES, JUMP 
OO30E8 2944 1320 MVFN Et (R2) * 1437 * 
OO30EA 6802 384A 1321 RI f OUTPUT THE MESSAGE 003214 4124 2876 1438 NVA MSGOC,R1 MOVE MESSAGE TO BUFFER 
1322 * 003218 4224 258A 1439 NVA BUFFR,R2 * 
1324 x 00321C 4724 001B 1440 MVWI MSGOD-MSGOC,R7 aK 
OO30EE 6F03 3884 ee RT275 BAL DEL, R7 WAIT FOR INTERRUPT 003220 2944 hae " MVFN (R11), (R2) 5 
Q0O030F2 4020 257A OO1E 1327 MVWI X*1E",CKPT *>*>*> R 2, CP IE 003222 6802 384A 1443 B PRINT OUTPUT THE MESSAGE 
O0O030F8 C825 25DE 1328 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD NOT) 1444 * 
0030FC 100D 1329 JZ RT279 NO, JUMP 1446 * 
1330 * 003226 802B 19D0 2584 1447 S0207 CB DEVADD,IDRDA CHECK FOR CORRECT DEVICE ADDRESS 
OO30FE T7OAE 1331 CPLSR R5 SAVE COND CODE 00322C 1009 1448 JE 208 OK, JUMP 
003100 356A 1332 SRL 13,5 * 1449 * 
003102 C528 2581 1333 MVB R5,RIOCC * 00322E 4124 2891 1450 MVA MSGOD,R1 HOVE MESSAGE TO BUFFER 
003106 4124 27EB 1334 MVA mS609,R1 MOVE MESSAGE TO BUFFER 003232 4224 258A 1451 MVA BUFFR,R2 * 
00310A 4224 258A 1335 MVA BUFFR, R2 * 003236 4724 0043 1452 MVWI MSGOE-MSGOD,R7 x 
00310E 4724 0033 1336 MVWI MSGOA-MSGO09,R7 * 00323A 2944 1453 MVFN (R1), (R2) * 
003112 2944 1337 MVFN (R1), (R2) * 1454 * 
003114 6802 384A ieee ‘ PRINT OUTPUT THE MESSAGE 00323C 6802 384A tee ; B PRINT OUTPUT THE MESSAGE 
003118 4020 257A OO1F 1340 RT279 MVWI X*1F*",CKPT *>*>*> R 2, CP IF 003240 O5SFE 1457 $0208 ABI -2,R5 WAS OUR ENTRY CC = 2 ? 
00311E 8029 25DC 2629 1341 OB TBIT, PDATA SET 'I-BIT* IN PREP FIELD 003242 1803 1458 JINZ s0409 NO, JUMP 
003124 8028 25cCC 2580 1342 MVB cc7, ktocc SET ‘EXPECTED COND CODE! INDRS 1459 * 
00312A 8028 25C9 2582 1343 MVB CC2,XINCC * 003244 8028 25CA 2582 1460 MVB CC3, XINCC YES. EXPECT IMMEDIATE ENTRY, CC 3 
003130 9028 2626 257Cc 1344 MVD PREPR, IDCB SET "IDCBt INDR 00324A 4020 25DE 0001 1461 S0209 MVWI 1, 1NTIN SET "INT OCCURPED' INDR 
003136 680C 2626 1345 To PREPR PREP, ENABLED 003250 6102 1462 LEX 2 RETURN 
00313A 6F04 3158 1346 BCC 7,RT27TE COND CODE OK, BRANCH 1463 * 
13247 * TU AS 33 RRO I III IO IOI RO ORI IO ICICI OI iio iI I a fof alk skied ated ake ate ate sie ak 
00313E 70AE 1348 CPLSR R5 SAVE COND CODE 1466 * 
003140 356A 1349 SRL 13,R5 * 1467 * NAME: RTO3 (DIAGNOSTIC WRAP TEST) 
003142 C528 2581 1350 MVB R5,RIOCC * 1468 * 
003146 4124 26D2 1351 MVA S603,R1 MOVE MESSAGE TO BUFFER 1469 * PURPOSE: TO TEST THE "DIAGNOSTIC WRAP! FEATURE 
00314A 4224 258A 1352 MVA BUFFR,R2 * 1470 * 
OO0O314E 4724 0025 1353 MVWI MSGO4-MSG03,R7 * 1471 * METHOD: A WRITE!’ OF X'O0O* IS ISSUED, FOLLOWED BY A 'READ' AND A 
003152 2944 1354 MVFN ay (R2) * 1472 * TEST OF THE DATA INTEGRITY. A "WRITE® OF X*FF# FOLLOWED 
003154 6802 384A 1355 R f OUTPUT THE MESSAGE 1473 * : IMMEDIATELY NO INTERVENING 'READ') BY ANOTH (WRITE! OF 
1356 * 74 * X'OO' TESTS THE "RECEIVE OVERRUN! CONDITION. THE FINAL 
1358 * 1475 * TEST IS TO INSURE THE OVERRUNNING DATA DID NOT ALTER THE 
003158 6F03 3884 12E6 RI2TE BAL DEL,R7 WAIT FOR INTERRUPT ee . ORIGINAL DATA IN THE READ BUFFER. 
00315C 4020 257A 0020 1361 MVWI xX'20',CKPT *>*>*> R 2, CP 20 U7 8 eR RIOR RIOR OR ROO IG RII IR I IRR I IR Rk i tok digi take ket ak ate aie aie ik 
003162 C825 25DE 1362 MVWZ INTIN, RO INTERRUPT OCCUR ? (SHOULD) 1479 * 
003166 1809 1363 JNZ RT28A YFS, 003252 4020 2578 0003 1480 RTO3 MVWI 3,RTNE *>*>*> R 3 
1364 * 003258 4020 257A 0001 1481 MVWI 1,CKPT *>* >*> CP 1 
003168 4124 281E 1365 RT280 MVA MSGOA,R1 MOVE MESSAGE TO BUFFER 00325E 4020 25D8 33F6 1482 MVA 1§S03,DDB SET INT SERVICE ADDRESS 
00316C 4224 258A 1366 MVA BUFFR,R2 * 003264 C825 263C 1483 MVWZ WDATA-1,R0 SET IDCB = 00 
003170 4724 002C 1367 MVWI MSGOB-MSGOA,R7 * 003268 8028 25cc 2580 1484 MVB. CC7, XI0EC SET "EXPECTED CC INDRS 
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00326E 8028 25cc 2582 1485 MVB €C7,XINCC * 0033E8 4224 258A 1602 MVA BUFFR,R2 sd 
003274 9028 263A 257C 1486 MVD WRITE, TDCB SET "IDCB' INDR 0033EC 4724 002A 1603 MVWI MSG1328SC12, R7 * 
00327A 680C 263A 1487 TO ITE WRITE 00 0033FO0 2944 1604 MVFN (R1), (R2) - 
00327E 6F04 329C 1488 P BCC ib RT313 IF ACCEPTED, BRANCH 0033F2 6802 384A 1605 B RINT OUTPUT THF MESSAGE 
eae oae pone Vay eEUee Ae : SAVE ERROR COND CODE 1008 Se ere eee ee ee eee Mie ee ie a Pore ee PN ge ee este eer ae 
SR R * 
003286 C528 2581 1492 MVB R5,RTOCC * 1610 * NAME: ISSO3 (RTO3 INTERRUPT SERVICE SUBROUTINE) 
00328A 4124 275D 1493 MVA MSGO6,R1 MOVE MESSAGE TO BUFFER 1641 * 
NGace ne Lan Roan Age Eva BUFR, 82 petes : 1612 - PURPOSE: TO SERVICE INTERRUPTS DURING THE EXECUTION OF RTO3 
GO7-MSG R 
003296 2944 1496 MVFN R1) (R2) * 1614 * METHOD: CONDITION CODES ARE TESTED FOR CORRECT INDICATION AND 
003298 6802 384A 17 ‘ RINE OUTPUT THE MESSAGE 1615 . SEQUENCING. ALL ERRORS ARE TRAPPED. 
00329C 6F03 3884 1499 RT313 BAL DEL,R7 WAIT FOR INTERRUPT 1617 NOTE: THE ERROR CANNOT BE REPEATED FROM THIS ROOTINE, N OR CAN IT BE 
0032A0 4020 257A 0002 1501 MVWI 2,CKPT *>*>*> R 3, CP 2 1619 * EARLIER IN THE PROGRAM, OR IS ASSOCIATED SPECIFICALLY WITH THE 
eee C826 25DE 1302 BVRZ TATIN, RO INTERRUPT OCCUR ? (SHOULD) 1620 : "DIAGNOSTIC WRAP' MODE OF TTY ATTACHMENT OPERATION. 
0 1504 * ae 1G DD KA HR eR eK ee he He ae Be he He Me ae 2 he ee ee ee ae ee He he ee oe ee ee he he He he ee ee a ee ee a eK oo 
0032AC 4124 284A 1505 MVA MSGOB,R1 MOVE MESSAGE TO BUFFER 1623 * 
0032B0 4224 258A 1506 MVA BUFFR, R2 * 0033F6 7OAE 1624 ISSO03 CPLSR R5 SAVE INDRS 
0032B4 4724 002C 1507 MVWI MSGOC-MNSGCB,R7 * 0033F8 6F04 345Cc 1625 BCC 7,50307 IF 'DVC END® & ‘ATTN', BRANCH 
0032B8 2944 1508 MVFN PA). (R2) * 1626 * 
0032BA 6802 384A 1303 : RINT OUTPUT THE MESSAGE 0033FC 6E04 3446 1627 ‘ BCC 6 ,S0306 IF "OVRN RCV! & ‘ATTN', BRANCH 
1512 * 003400 6B04 3436 1629 BCC 3,50303 IF '"DVC END', BRANCH 
0032BE 4020 257A 0003 1513 RT317 MVWI 3,CKPT *>*>*> R 3, CP 3 1630 * 
0032C4 8028 25cCC 2580 1514 MVB cé7, xXIocc SET "EXPECTED CC! INDR 003404 6A04 3420 1631 BCC 2,50302 IF "OVRN RCV‘, BRANCH 
0032CA 8828 25CE 2582 1515 MVW cCCxX,XINCC WIPE OUT "INT CC" INDRS 1632 * 
0032D0 9028 262A 257C 1516 MVD READ,IDCB SET 'IDCB' INDR 003408 356A 1633 S0299 SRL aed R5 SET "RECEIVED CC® INDR 
0032D6 680C 262A 1517 nde) READ READ 00340A C528 2583 1634 MVB *RINCC * 
0032DA 4020 257A 0004 1518 MVWI 4,CKPT *>*>*> R 3, CP 4 OO340E 4124 28F3 1635 S0300 MVA HeGOP. R14 MOVE MESSAGE TO BUFFER 
0032E0 4O2F 262c 0000 1549 CWI 0, RDATA-1 CHECK "PEAD DATA®* 003412 4224 258A 1636 NVA BUFPR. R2 * 
0032E6 1009 1520 JE R£320 IF CORRECT, JUMP 003416 4724 OO1F 1637 MVWI RSG1O“RScOF, R7 * 
1521 * 00341A 2944 1638 MVFN (R1) , (R2) * 
0032E8 4124 2949 1522 MVA’ MSG11,R1 MOVE MESSAGE TO BUFFER 1639 * 
0032FC 4224 258A 1523 MVA BUFFR,R2 * 00341C 6802 384A 1640 B PRINT OUTPUT THE MESSAGE 
0032FO 4724 0033 1524 MVWI MSG12-MSG11,R7 * 1641 * 
0032F4 2944 1525 MVFN (R4) (R2) * 1643 * 
0032F6 6802 384: 1326 7 RIN’ OUTPUT THE MESSAGE 903420 80 28 Z5C9 35 83 iene 50302 MVB CC2 ,RINCC SET oS ea eae LRECEIVED CC' INDR 
1529 * 00342C 18FO 1646 SNE $0300’ NO, JUMP 
1530 ** TEST "RECEIVE OVERRUN! CONDITION 1647 * 
1531 * 00342E 8028 25CA 2582 1648 MVB CC3,XINCC SET 'CC 3 EXPECTED" INDR 
0032FA 4020 257A 0005 1532 RT320 MVWI PT *>*>*> R 3, CP 5 003434 501A 1649 S036F JUMP 
003300 4020 263C OOFF 1533 MVWI RIOOFF WDATA-1 SET IDCB TO FF 1650 * 
003306 8028 25cC 2580 1534 MVB éct, xrocc SET "EXPECTED CC* INDRS 003436 8028 25CA 2583 1651 S0303 MVB CC3,RINCC SET 'CC 3" IN ‘RECEIVED CC' INDR 
00330C 8028 25cCc 2582 1535 MVB CC7, XINCC * 00343C 802B 2582 2583 1652 CB XINCC,RINCC DID WE EXPECT CC 3 ? 
003312 9028 263A 257C 1536 MVD WRITE, IDCB SET "IDCB* INDR 003442 18E5 1653 JNE S0300 NO, JUMP 
003318 680C 263A 1537 Age) WRI WRITE IT 1654 * 
00331C 6F04 3332 1338 Z BCC Is RT 325 IF ACCEPTED, BRANCH 003444 5012 1635 : J S030F YES. JUMP 
003320 4124 275D 1540 MVA NSGO6, R1 MOVE MESSAGE TO BUFFER 003446 8028 25CB 2583 1657 S0306 HVB CC6,RINCC SET *CC 6' IN ‘RECEIVED CC* INDR 
003324 4224 258A 1541 MVA BUFFR,R2 * 00344C 802B 2582 2583 1658 CB xtncc,RINCC DID WE EXPECT CC 6 ? 
003328 4724 0023 1542 MVWI MSGO 7. BS Coes R7 * 003452 18DD 1659 JNE $0300 NO, P 
00332c 2944 1543 MVFN a1) (R2) * 1660 * 
00332E 6802 384A tke : B f OUTPUT THE MESSAGE eee coe 25C9 2582 ve) MVB CC2 ,XINCC SET 'cc 2 EXPECTED' INDR 
003332 6F03 3884 1546 RT325 BAL DEL,RT7 WAIT FOR INTERRUPT 1663 * 
1547 * 00345C 8028 25cc 2583 1664 S0307 MVB CC7,RINCC SET 'CC 7* IN "RECEIVED CC" INDR 
003336 4020 257A 0003 1548 MVWI CKPT *>*>*> R 3, CP 6 003462 802B 2582 2583 1665 CB XINCC,RINCC DID WE EXPECT CC 7 ? 
00333C C825 25DE 1549 MVWZ TAEIN, RO INTERRUPT OCCUR ? 003468 18D2 1666 JNE $0300 NO, JUMP 
003340 1809 1550 INZ 29’ YES, JUMP 1667 * 
1551 * 00346A 4020 25DE 0001 1668 SO30F MVWI 1,INTIN SET "INTERRUPT OCCURRED' INDR 
003342 4124 284A 1552 MVA MSGOB,R1 MOVE MESSAGE TO BUFFER 003470 6103 1669 LEX 3 RETURN 
003346 4224 258A 1553 MVA BUFFR, R2 * 1670 * 
Ee ey 002C ee ave pee ge OB. R7 : 104 SSR ee eee Ae Ce area Meee ee ee ee ete ee Ce eee, re vee Tae eee 
F MVFN (R1 
003350 6802 384A 1328 : B Sf tha OF? OUTPUT THE MESSAGE ea : NAME: RTOS (COMMAND REJECT TEST) 
003354 4020 257A 0007 1558 RT329 MVWI CKPT *>*>*> R 3, CP 7 1676 * PURPOSE: TO INSURE [THE TTY ATTACHMENT WILL RESPOND WITH A 
00335A C825 263c 1559 MV WZ eles SET IDCB TO 00 1677 * ‘COMMAND REJECT' TO EACH INVALID IO INSTRUCTION. 
00335E 8028 25ccC 2580 1560 MVB CCT, Bek? SET "EXPECTED CC" INDRS 1678 * 
003364 8028 25c9 2582 1561 MVB  CC2,xINcC * 1679 * METHOD: EACH INVALID IO INSTRUCTION IS ISSUED, AND THE RESPONSE 
00336A 9028 263A 257C 1562 MVD WRITE, IDCB SET tIDCB* INDR 1680 * TO EACH IS TESTED. 
003370 680C 263A 1563 TO WR SEND IT 1681 * 
003374 6FO04U 3392 ee ‘ BCC Vy ee IF ACCEPTED, BRANCH ee ere ee Ge ee Tee ee ey ee eee ee yee ey an Te eee Te gee 
003378 TOAE 1566 CPLSR R5 SAVE CONDITION CODE 003472 4020 2578 0004 1684 RTO MVWI 4,RTNE *>*>*> R 4 
00337A 356A 1567 SRL 13,R5 x 003478 4020 25D8 3506 1685 MVA 1§S04, DDB SET TRANSFER VECTOR 
00337C C528 2581 1568 MVB  R5,RIOCC * 00347E 4020 257A 0001 1686 MVWI 1,cKpt *>* > *> cP 1 
003380 4124 275pD 1569 MVA MSG606,R1 MOVE MESSAGE TO BUFFER 003484 0900 1687 MVBI SET UP TO TEST FUNC/MNODR OF X*'00! 
003384 4224 258A 1570 MVA BUFFR, R2 * 003486 OAOF 1688 MVBI ey R2 * THRU X'OF 
003388 4724 0023 1571 MVWI MSGO7-MSG06,R7 * 003488 9F20 1689 JAL T402,R7 GO TEST THEM 
00338c 2944 1572 MVFN (ei) (R2) * 1690 * 
00338E 6802 384A 1573 B RING OUTPUT THE MESSAGE 00348A 4020 257A 0003 1691 MVWI 3 ;CKPT #>*>*> R 3 
146 03433 Sate 893 ver Edge 8] Ss pt riminer fester 
tf 
003392 6F03 3884 eae RT32E BAL  DEL,R7 WAIT FOR INTERRUPT 003494 9OFIA Ve3t JAL RT402,R7 GO TEST THEN 
003396 C825 25DE 1579 MVWZ INTIN,RO CLEAR INDR 003496 4020 257A 0004 1696 MVWI 4,CKPT *>*>*> RY, CP 4 
00339A 4020 257A 0008 1580 MVWI 8,CKPf *>*>*> R 3, =P 8 00349C 0921 1697 MVBI Xf21t R11 SET UP TO seen FUNC/MODR X*21° 
0033A0 8028 25cc 2580 1581 “vB cC7,xtTOcC SET ‘EXPECTED COND CODE' INDRS OO349E OA4F 1698 MVBI X'UF',R2 * THRO x'4 
0033A6 8828 25CE 2582 1582 MVW CCX, XINCC * 0034A0 9SF14 1699 JAL RT402,R7 GO TEST THEM 
0033AC 9028 262A 257C 1583 MVD  READ,IDCB SET "IDCB* INDR 1700 * 
0033B2 680C 262A 1584 IO READ INSURE NEW DATA (00) DIDNT OVERLAY 0034A2 4020 257A 0005 1701 MVWI S,CKPT *>*>*> R4, CP 5 
0033B6 6F04 33D4 Vae> : BCC 7,RT333 * OLD DATA eeren O22 ue nvET vieerths Sac aot FONC/MODR X*52! 
0033BA T7OAE 1587 CPLSR RS SAVE COND CODE OO34AC 9QFOE 1704 JAL RTUO2,R7 GO TEST THEM 
0033BC 356A 1588 SRL 13,R5 * 1705 * 
0033BE C528 2581 1589 MVB RS -RtTocCC * OO34AE 4020 257A 0006 1706 MVWI 6,CKPT *>* DED R 6 
0033C2 4124 2A3C 1590 MVA MSG617,R1 MOVE MESSAGE TO BUFFER 0034B4 0961 1707 MVBI xf61',R1 SET UP TO TEST FUNC/MODR OF xt61h 
0033C6 4224 258A 1591 MVA BUFFR, R2 x 0034B6 OA6D 1708 MVBI X'6D!,R2 * THRU X*t6D! 
0033CA 4724 0022 1592 MVWI MSGND-MSG17,R7 * 0034B8 9FO08 1709 JAL RT402,R7 GO TEST THEM 
0033CE 2944 1593 MVFN (RI) (R2) * 1710 * 
0033D0 6802 384A 1594 PRINT OUTPUT THE MESSAGE 0034BA 4020 257A 0007 1711 MVWI 7,CKPT *>*>*> R 
1595 * 0034C0 0970 1712 MVBI x70" R1 SET UP TO TEST FUNC/MODR OF xthore 
0033D4 4020 257A 0009 1596 RT333 MVWI 9,CKPT *>*>*> R 3, CP 9 0034C2 4224 OOEF 1713 MVWI X*OOEF', R2 * THRU X'EF? 
0033DA C020 262D 1597 MVB  RDATA,RO GET READ DATA 0034C6 9FO1 1714 JAL RTGO2,R7 GO TEST THEM 
0033DE 7801 0001 1598 AWIL 1,R0 ADD 1 TO READ DATA 1715 * 
0033E2 1047 1332 ‘ JZ ROY IF ZERO, JUMP 0034C8 502B 171s ‘ J RTO5 GO TO NEXT TEST 
0033 E4 4124 297C 1601 MVA MSG12,R1 MOVE MESSAGE TO BUFFER V7 19 RK HR He HK eR IK HH HK HH He ee He I i eH he i Ke He oe eK ok fe ok ok ok 
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T4000 --- TIY ATTACHMENT AUTO-SEQUENCE MAP P/N=1635221 EC=374886 PAGE 09 T4000 --- TTY ATTACHMENT AUTO-SEQUENCE MAP P/N=1635221 EC=374888 PAGE 09A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003706 5005 soe5 m J BDCC7 JOMP IF BAD CC 0037CA 6000 2069 SVC ouT * 
2070 * 
003708 1953 Icc2 EQU_ * 
903788 2O8F sro ees gee” Ps dendua te ccounren 6 a a ALS eee ees 
xx OF i 
00370E 5006 1956 | J Bhcc2 JUMP TF BAD cc Sa ee OUane 
0037 6301 2075 GDEND DIS. 1 DISABLE INTERRUPTS 
003710 0000 1938 IRTN DC A (*-*) GOOD RETURN ADDR GOES HERE 0037D0 4020 18C8 0000 2076 MVWI 0O,TURE SET STATUS WORD 0 
1959 * 0037D6 882C 2620 25D6 2077 END MVW  SOhcP,DAPTR* RESTORE DCP XFER VECTO 
003712 Neogene 0037DC C825 261E 2078 MVWZ SAVER RESTORE DCP MCK RTN ADDR AND CLEAR SW 
003712 4020 2581 0007 1961 MVWI 7,RIOCC SET... "SB* <CC 0037E0 680D OOOA 5079 MVW RO,MCK 2k 
003718 6802 3408 tees ourTcc B 56299 >>>> RESET TTY? O037E4 6201 3080 EN 1 ENABLE INTERRUPTS 
* CP/MDI 
00371C 19@4 BDCC2 EQU* 0037E6 6802 0000 2081 GOBCK B RETURN TO DCP/M 
00371C 4020 2581 0002 1965 MVWI 2,RIOCC SET "SB' CC 2084 see E ORO a oo aa iO IG OK iO a IG OR toi iC GR io ia toi i aoa goo 
003722 SOFA 1966 ostcc GO PRINT MSSG 5085 x 
196 B BH HAR He He eM He he He oe He HK Ke HK HE He eh oh He oe a ae 2c fc 2k kc fe ake oh ice ae ac ok ote fe ake bi ah a ofc ae fe ee 2k 2c 2086 * NAME: MACHINE CHECK SUBROUTINE 
1969 * 2087 * 
A eas eee cage naa g089 x POSES TO SPDROGRAM, PRINT A HESSAGE TO THAT SPFECH, AND RETURN 
1972 * PURPOSE - TO LOOP IN THE DELAY LOOP THE NUMBER 9F COUNTS THAT 5090 * TO THE CONTROLLER ‘ 
1973 * HAS BEEN SET INTO THE LABEL 'DCOU', AND RETURN TO THE 5091 * 
1975 + nO uErOg ee ren ee WHEN THE COUNT GOES 2092 * CALLING SEQUENCE: HARDWARE BRANCH VIA ‘MACHINE CHECK! SIA 
. 2093 * 
1976 * 2094 * RETURN: DCP 
1977 * METHOD - LOOP IN THE 2 INSTRUCTION LOOP UNTIL THE COUNT GOES TO 5095 x 
1979 * BREA Be Sa eee aN Dae LOE. PAU Wt SSS TESS SETS LE SSS ESSE SES SSP ESSE EEE SEES ESE ST TE TE SSL TTS SS SS TTT SS TTS TT SS SF 
2097 * 
19D BOD HK HH He He Hee He He He he He IK Ke He Ke he ae he He he eRe 2 ee 2 3 2 ie ee 3c ee he he fe ch eR oe af oe ai oe fc a a oe a ae ok ea OO37EA S82F 2614 2098 MACHK CPPSR MCPSW SAVE PSW 
003724 6808 3732 TS6o. CHM. pec oen GET COUNT VALUE OO37EE 4724 2616 2099 NVA PARM1,R7 SET CONTROL BLOCK ADDRESS 
003728 G6EOD 3732 soe ee Beeeeow * DELAY- 0037F2 4020 2616 0002 2100 MVWI 2,PARK1 CONVERT THE STEP NUMBER FROM HEX TO 
00372C BEFD 1983 JCT DRINI,R6 * LOOP. 0037F8 4020 2618 180C 2101 MVA  Sf#EPNUM, PARM2 * EBCDIC AND INSTALL IT IN THE *MACHK 
eee ee ee 1985 + ae Beers Q037FE 4020 261K 2AA2 2102 NVA STEP, PARN3 * STATUS' MESSAGE 
003732 0000 1986 DcoU. D A (*-* 2104 * 
19B GB HK a He ie a a He ee 2h fe ee Se 2 he A AK HK he He oe He He He he He KK eI He 2 He 2 KC OK aC oe ee ae ee eo oe a a 2c 2 003806 4020 2618 2614 2105 MVA MCPSW, PARMN2 CONVERT THE SAVED 'MACHK PSW* FROM 
1989 * 00380C 4020 261A 2AAE 2106 MVA  PSW,PARM3 * HEX TO EBCDIC AND INSTALL IT IN THE 
toa9 z NAME: RTO6 (TERMINATION) 003812 601A 2107 : svc HTOof * 'MACHK STATUS' MESSAGE STRING 
PR ee O0381R 4030 261K 2RBR ©3490 HVA TAR, PARHS # TO EBCDIC AND INSTALL I? IN THE 
Nec : METHOD: THE DEVICE IS RESET, THEN CONTROL IS PASSED TO DCP/MDI. 003800 rae a 2411 SVC HTOF * '™MACHK STATUS! MESSAGE STRING 
FOGG A HH HK he He He He He a a ae eo OK he ee 2 a ee a ee eo I 2c he i a 2 i ok oe i 2 oe ke oe he ic fe ee te ke kc 2 2 2 eo ok kc 003822 4020 2616 0004 SaaS * MVHL 4 PARMA CONVERT THE LAST IDCB FRON HEX TO 
1997 * 003828 4020 2618 257C 2114 MVA  IbCB,PARM2 * EBCDIC AND INSTALL IT IN THE 'MACHK 
003734 4020 2578 0006 1998 RTO6 MVWI 6,RTNE e227 e oR: 00382E 4020 261A 2AC6 2115 MVA  TDCBX,PARM3 * STATUS" MESSAGE STRING 
00373A 4020 257A 0001 1999 MVWI 1,CKPT *>*>*> cp 1 003834 601A 3116 SVC HTOE x 
003740 40 20 2628 0000 2000 MV WI O,PDATA-1 UN-PREPARE THE TTY ATTACHMENT 5417 * 
003836 8828 2611 2588 2118 MVW MCKCD,PGMID SET PROGRAM ID TO 'DCP/MDI' (FAKE I‘) 
OO374A 680C 2636 2002 TO RST RESET THE TTY ATTACHMENT 00383C 4124 2A8C 2119 MVA  MCMSG,R1 NOVE MESSAGE STRING TO’ BUFFER 
OO374E 6802 37CE Sa ae : B GDEND GO END IT 003840 4224 258A 2120 MVA  BUFFR,R2 x 
DPOOG KH KH A He He he He He he ee ek he ee he ee a ae he i he a He he ke i hak he ae he ae ic kc hc ok fc ie a eK oe cok ok KK aK KK ek Oesees Be 0044 S14 aren tat) (Roy : 
2007 * x 
att - NAME: EXIT TO LEVEL THREE SUBROUTINE 3132 FeO do Ga aC a ga IG Oo Gg iO ci io Gia i to gai iota iio aca 
*k 
oGa4 7 PURPOSE: TO RESET ANY UPPER LEVEL, RESUMING EXECUTION ON LEVEL 3 3138 te NAME: PRINT SUBROUTINE 
2128 * 
AE : CALLING SEQUENCE: BAL OFF,R7 2129 . PURPOSE: TO ISSUE *SVC OUT" COMMANDS FOR PRINTING/DISPLAYING 
Sots : RETURN: NSTI 2131 * METHOD: ALL POINTERS ARE SET) THE 'SVC out ISSUED, THEN EXIT TO 
2018 He He He he He he ee He ee a he he he hee A ok ea a He eK ae he oe oe i oe ee 2h ke ee ae ee oh 2 3 eo fe a eo te oe eo Ke He ie KK KK eK eK A ae * Beco oe Se eee G/DISPLAYING IS DONE NLY IN THE 
2 . 2134 * 
003752 6FOD 377C 2018 OFF MVW R7,OFFR+2 SET RETURN LINK 2135 * CALLING SEQUENCE: B PRINT 
003756 0803 2019 MVBI 3 SAVE LEVEL 3 STUFF 5136 * ° 
003758 582E 2550 2020 CPLB RO,LSB * 3137 * RETURN: B  EREND 
00375C 4020 2550 377A 2021 MVA  OFFR,LSB SET RE-ENTRY ADDRESS FOR LEVEL 3 3138 * 
003762 402C 25E4 00D0 2022 OWI x'0060',LSR FORCE 'SS, IPF & SM' BITS ON PSEC CLEC ITIL CCrCeIrrrretterrte rere rrirl ere titi rrrrr irr tt ttt etre trier. eee. st: 
doa7ec tras ek 505u ABT. aROT RESET LEVEL > (TF CURRENT, ENTER AT a ed 3 
a 0038 6F03 3752 2141 PRINT BAL OFF,R7 GET ON LEVEL 
Q0376E 5826 25F6 2025 SELB R0O,DLSB * ‘OFFR*' ON LEVEL 3 , 003848 e808 180C 2142 MVW STEPDNUM,RO SET STEP NUMBER 
003772 OOFF 2026 ABI -1,R0 RESET LEVEL 1 or CURRENT, ENTER AT 003852 ¢C120 19D0 7143 MVB DEVADD,&1 * DEVICE ADDRESS, 
003774 5826 25F6 2027 SELB R0O,DLSB * "OFFR' ON LEVEL zh 003856 4224 0000 7144 MVWI O.-.R? * (RESERVED 
003778 610F 2028 | LEX x'6F® EXIT (ENTER AT 'OFFR' ON LEVEL 3) 00385A 4324 2576 2145 MVA TOID R3_ * CINDRS! potureR, AND 
* CO LOCK POINTER 
603774. 68020006 2030 OFFR 8 te Saree 00385E 4724 25D4 2146 . NVA  CTLBK,R NTROL B T 
DO 33 KRHA HA HM He HM Me He He HK He He Ke eH KK HK He I he He He ee He He Me he a ee he ee eK ee oe ee a oe ok ae ae he oa abager ree eee 0000 eS th A TAM ee : cee camecn 
2034 * 00386C 680C 262F 2150 TO RDW TRY TO RESET TTY ATTACHMENT 
se oo ggsefo Gags 2840 257° 318] ANG gia nagtee TORE a bch aeRO 
203) : PURPOSE: END EXECUTION AFTER EITHER GOOD OR ERROR RON 00387A 680D OOOA 2133 MVW RO,NCK * XYFER VECTOR. 
4 
atts 4 CALLING SEQUENCE: BRANCH TO CORRECT ENTRY POINT 00387E 6000 3155 SVC our OUTPUT THE MESSAGE 
2156 * 
ona . RETURN: DCP 003880 6802 377E 213) 7 B EREND GO END IT 
eonu ee eee BE a ee ge ees Gee eee ee ee OMe ey yee 7159 OO i RO RIOR II a RO IO tak kak kaiog ak fokokaic ak ag 
* 
2045 ** 'ERROR END' ROUTINE att * NAME: DELAY SUBROUTINE 
2162 * 
00377E 6301 2047 EREND DIS. 1 DISABLE INTERRUPTS * ; 
003780 4020 18C8 0001 2048 MVWI 1,TURESUL SET ERROR CONDITION FOR MDI aes PUN DOMES S UnGheTHe Go Mae CAELES CO ee ee 
* 
2050 ** 'ERROR STATUS OUTPUT! ROUTINE s1ee x CALLING SEQUENCE: BAL  DEL,R7 
2167 * 
003786 4724 2616 2052 MVA_  - PARM1,R7 CONVERT THE 'RTNE' NUMBER FROM HEX TO x ‘ 
00378A 4020 2616 0002 2053 MVWI 2,PARM1 * EBCDIC AND INSTALL IT IN THE 'RTNE/ at eg « RET EE Ne cho: ae: PO RR ESS CONT TNED SN RTS 
003790 4020 2618 2578 2054 MVA RENE, PARM2 * CKPT* OUTPUT STRING 2170 323 oo aa Oa ai iO I I IO IO IO I i RR go tog i dag deg gig 
003796 4020 261A 2A70 2055 NVA TR, PARM3 * 003884 OCFF 2171 DEL MVBI -1,R4 * 
00379C 601A 2056 P SVC HTOE * 003886 BCEF 2172 DEL1 Jct Deft R4 * LOOP UNTIL R4 = 0 
00379F 4020 2616 0001 058 MVWI 1,PARM1 CONVERT THE 'CKPT' NUMBER FROM HEX TO O0388R Beer goa pera ee pate ‘Rs * LOOP UNTIL R4 = 0 
OO37A4 4020 2618 2578 2059 MVA CKPT+1, PARM2 * EBCDIC AND INSTALL IT IN THE 'RTNE/ 00388C 68E2 0000 9175 B (R7) ” RETURN 
OO37AA 4020 261A 2A86 2060 MVA ICP,PARM3 * CKPT' OUTPUT STRING 000000 5476 
0037B0 601A 2061 | svc Htof * 
0037B2 8028 2587 25D3 2063 MVB  BPHDR,CTLSW NO NEED FOR MESSAGE HEADER THIS TIME 
0037B8 4424 2A60 2064 MVA  IRCPM,R4 MOVE MESSAGE STRING TO BUFFER 
0037BC 4524 258A 2065 MVA  BUFFR,RS * 
0037CO 4724 002A 2066 MVWI TRCND-IRCPM,R7 * 
0037C4 2CA4 . 2067 MVFN (R4&), (R5 * 
0037C6 4724 25D4 2068 MVA TLBK ,R7 OUTPUT THE 'RTNE' AND 'CKPT' INDRS 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 


=2OfOONO0 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


SewtOnn-s NON&S 


LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 


LENGTH (1) 
LENGTH (6) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
7 
LENGTH (2) 
LENGTH (1) 
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573 


728 
7133 
727 
1958 
863 
1417 
16 24 
1766 
40 
542 
575 
595 
580 
581 
582 
2098 
597 
584 
748 
737 
585 
645 
721 
677 
680 


685 
688 
691 
694 
647 
650 
653 
656 


659 


662 
665 


668 


671 


674 
697 
700 
703 
706 
709 
712 
715 
718 
336 
348 
351 


TTY 


NAME 


INTIN 


IR 
IRCND 
IRCPM 
IRTN 
ISs01 
ISSO2 
ISS03 
ISSO4 
14000 
LEVEL 
LSB 
LSR 
LVLO 
LVL1 
LVL2 
MACHK 
MCK 
MCKCD 
NCMND 
MCMSG 
MCPSW 
MGO9 
MSGND 
MSGOA 
MSGOB 


MSGOC 
MSGOD 
NSGOE 
MSGOF 
MSGO00 
MSGO1 
MSGO2 
MSG03 


MSGO4 


MSGO5 
MSGO6 


MSGO7 


4SGO08 


MSGO9 
MSG10 
MSG11 
MSG12 
MSG13 
MSG14 
MSG15 
MSG 16 
MSG17 
N00001 
N00002 
N00003 


ATTACHMENT AUTO-SEQUENCE MAP P/N=1635221 EC=374888 PAGE 10A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 

papensg. 2k icv SH CONGgg50H FY GaBSTCTAgYO 4 gTEFORECD 
1213 1246 1296 1328 1362 1390 1461 1502 1549 

SADDRESS. HEX LOCATION (00002A70) IN CSECT(I4000 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002A8A) IN CSECT(I4000 ) LENGTH(2) 
aADDRESS. HEX LOCATION (00002460) IN CSECT(I4000 ) LENGTH(16) 
gener sate “aaa aoa ose IN CSECT(I4000 ) LENGTH (2) 
Boe te HEX LOCATION (O0002B9C) IN CSECT(I4000 ) LENGTH (2) 
ey aaa HEX LOCATION (000031DC) IN CSECT(I4000 ) LENGTH (2) 
ADDRESS. HEX LOCATION (000033F6) IN CSECT(I4000 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003506) IN CSECT(I4000 ) LENGTH(2) 
CSECT. START(00002500) LENGTH (5008) ESDID(1) 

Aeon e nese oon non (O00N2 22) IN CSECT (T4000 ) LENGTH (1) 
ADDRESS. HEX LOCATION (000025E0) IN CSECT(I4000 ) LENGTH(2) 
Baad HEX LOCATION (000025E4) IN CSECT(I4000 ) LENGTH (1) 
ADDRESS, HEX LOCATION (00002602) IN CSECT(I4000 ) LENGTH(1) 
Pt ia HEX LOCATION (O000260F) IN CSECT (14000 ) LENGTH (1) 
ieee HEX LOCATION (00002610) IN CSECT(I4000 ) LENGTH (1) 
oa HEX LOCATION (000037EA) IN CSECT(I4000 ) LENGTH (4) 
BBRCOFE MBB y$ hug 40000008) 

ADDRESS. HEX LOCATION(00002611) IN CSECT(I4000 ) LENGTH(2) 
vin Baa LOCATION (OO002AD0) IN CSECT(I4000 ) LENGTH (2) 
PPC met PT ae LOCATION (OOOO2A8C) IN CSECT(I4000 ) LENGTH( 14) 
aADDRESS, HEX LOCATION (00002614) IN CSECT(T4000 ) LENGTH(2) 
{aoe aa LOCATION (0000263E) IN CSECT(I4000 ) LENGTH (33) 
ADDRESS, HEX LOCATION (OQQO2A5E) IN phic wees ) LENGTH (2) 
sBEBPEGrsPPEHGCMGH OUSESOTN, TH GSEET ggg, bLEvERE aa 
aBBDPEGG OEE, BOCHEAON ORE soOAL Em SSRGrCGRgGO LteroTH cea 
HEBPE Ss P=H,GRCUHESH 000070763 gM SHEET (reo y LEnorH cas 
jie. bee te IN CSECT(I4000 ) LENGTH (66) 
ADDRESS, HEX LOCATION (000028D4) IN CSECT(I4000 ) LENGTH(30) 
BUT REGE Wee dooce 1ean IN CSECT(I4000 ) LENGTH (30) 
RpORE Seay egag ee IN CSECT (14000 ) LENGTH (36) 
ag Rhee he IN CSECT(I4000 ) LENGTH(41) 
Seat HEX LOCATION(QOOO26AF) IN CSECT(I4000 ) LENGTH (34) 
ADDRESS. HEX LOCATION (000026D2 ans Geet ee L LENGTH (36) 

1281988 1860 896.128) 1389 1963 ISG 1838 

nal el Boal ho deelicdy Ube igo Pteenorecen 
1353 1802 

Boye gee Gee ee IN CSECT (T4000 ) LENGTH (57) 
Babee BP hGCnTEgy (OO9G275D) ATH CHEST CTEGGO 4 1 LENCTH (3H 
125; 1882 $85) dee ites iu8g 130 t6a2 180s 
ADDRESS. HEX Orage ates ea ee eee es ee) 
ses 1981 1942 T0883 tsh es dade 188 
ADDRESS. HEX LOCATION(000027AC) IN CSECT (14000 ) LENGTH (62) 
1013) 1026 1028 1155 1170 1172 1304 $1317 1319 

BBRPE SEs PPT OARCATTDN (00272 GF" CSET CG49G0 LENORE (50) 
Siok tear LOCATION (00002912) IN CSECT(I4000 ) LENGTH (54) 
ADDRESS, HEX LOCATION (00002949) IN CSECT(T4000 ) LENGTH(5O) 
feok teaq tens doen ison 4bae” CSECT (14000 ) LENGTH (41) 
ion 8coh Noa N CSECT (14000 ) LENGTH(20) 
Pep RES: HEX LOCATION (OO00029BB) IN CSECT (T4000 ) LENGTH(41) 
jADDRESS, HEX LOCATION (00002985) IN CSECT(I4000 ) LENGTH(38) 
ADDRESS. HEX LOCATION(O0002A0C) IN CSECT(T4000 ) LENGTH (47) 
$ppPeSSs ME BEMERN OQERNACL EY CHBETCTSGGO g) ,LENORH (3D 
eae ae LOCATION (00002510) IN CSECT(I4000 ) LENGTH (2) 
aoe eee HEX LOCATION (00002522) IN CSECT(I4000 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002526) IN CSECT(I4000 ) LENGTH (2) 
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TITY ATTACHMENT AUTO-SEQUENCE MAP P/N=1635221 EC=374888 
CROSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES DECLARED NANE 


DECLARED NAME 


2018 OFF RODRESS. HEX LOCATION (00003752) IN CSECT(I4000 LENGTH (4) bie oe 0730 Oey eee er ee) nenorr 
1789 1852 2141 1147 RT23C ADDRESS. HEX LOCATION (00002ED6) IN CSECT(I4000 ) LENGTH(4) 
ge noe LA pe IR Bi Seer Aen Beers) 1115 RT231 ADDRESS. HEX LOCATION (00002862) IN CSECT(I4000 ) LENGTH(6) 
1962 ouTCC 2 LOCATION (00003718) IN CSECT (14000 LENGTH (4) pace sianen pro PORE opto n ee ero en rere ns § S) 2ueNGT Ete) 
104 PARMARA A RRRESS. HEX LOCATION (0000196E) IN CSECT(I4000 LENGTH (1) co suka 1149900 Deere tae err eee: 1) ae enone Va) 
346 1161 RT240 ADDRESS. HEX LOCATION(OOOO2EF8) IN CSECT(I4000 ) LENGTH(6) 
ee sain 2052 3053 S08B 2090 2100" 9 13. ae emai Pern 1176 RT245 ADDRESS. HEX LOCATION(00002F2C) IN CSECT(I4000 +) LENGTH(4) 
588 PARH2 ADDRESS; HEX LOCATION (00002618) IN CSECT(I4000 LENGTH (2) 1193 RT249 ADDRESS. HEX LOCATION(00002F56) IN CSECT(I4000 ) LENGTH(6) 
See ee ee eee eoeee acenenn wey arzst lees. gar rocsron onze 18 csrorcr4o09 sewers 
3312 3342 972-1049 1116-1194 1260 °1341 3 1243 RT25E ABBRESS. HEX LOCATION(OOOO2FFA) IN CSECT(I4000 ) LENGTH(4) 
548 PGMID > ADDRESS. HEX LOCATION (00002588) IN CSECT(I4000 ) LENGTH(2) 1293 RT26C Pe aad HEX LOCATION (00003090) IN CSECT(I4000 ) LENGTH (4) 
72 PID ADDRESS, HEX LOCATION (00001800) _IN CSECT (14900 ), LENGTH (1) 1259 RT 262 ADDRESS. HEX LOCATION (0000301C) IN CSECT(I4000 ) LENGTH(6) 
83 84 85 86 87 88 89 90 91 1276 RT267 ADDRESS. HEX LOCATION(0000305C) IN CSECT(I4000 ) LENGTH (6) 
10, «108108 tOR Seid 1359 RT27E ‘Abbess. HEX LOCATION (00003158) IN CSECT(I4000 ) LENGTH(4) 
610 PREPR ADDRESS, |HEX LOCATION (00902626), _ IN CSECT (14000 rg uENeTHO) 1308 RT270 jRBDRESS. HEX LOCATION (000030BA) IN CSECT(I4000 ) LENGTH(6) 
1120 1132 1198 1263 1264 1344 1345 1793 1794 1325 RT275 ADBRESS. HEX LOCATION(O00030EE) IN CSECT(I4000 ) LENGTH(4) 
2141 PRINT ee Oe a ee SECT (T4000 shen neerey) 1340 RT279 on HEX LOCATION (00003118) IN CSECT(I4000 ) LENGTH (6) 
1001 1015 1030 1042 1067 1079 1097 #1109 1130 1371 RT28A ADDRESS. HEX LOCATION (0000317A) IN CSECT(I4000 ) LENGTH (6) 
1288 1396 1324 1338 1355 1363 1385 1337 1434 1387 RT28F ADDRESS. HEX LOCATION (000031B4) IN CSECT(I4000 ) LENGTH(4) 
{E40 acne ee 1808 1822 1829 1844 1868 1399 RT290 Fe HEX LOCATION (000031D6) IN CSECT(I4000 ) LENGTH (4) 
611 PRPDA ADDRESS. HEX LOCATION (00002627) IN CSECT(I4000 ) LENGTH(1) 1499 RT313 pages HEX LOCATION (0000329C) IN CSECT(I4000 ) LENGTH (4) 
741 PSW > ADDRESS. HEX LOCATION(OOOO2AAE) IN CSECT(I4000 ) LENGTH(2) 15 13 RT317 jen HEX LOCATION (O00032BE) IN CSECT(I4000 ) LENGTH (6) 
ses mane eyo eaT A901 Tooele IN CSECT(I4000 ) LENGTH(1) 1577 RT32E BDDRESS- HEX LOCATION (00003392) IN CSECT(I4000 ) LENGTH(4) 
6 16 RDDA ADDRESS. HEX LOCATION (0000262B) IN CSECT(I4000 ) LENGTH(1) 1532 RT320 Fy Aa HEX LOCATION (000032FA) IN CSECT(I4000 ) LENGTH (6) 
624 RDID ADDRESS, HEX LOCATION (00002632) IN CSECT(I4000 ) LENGTH(1) 1546 RT325 apogee HEX LOCATION (00003332) IN CSECT(I4000 ) LENGTH(4) 
6 20 RDW ADDRESS. HEX LOCATION (000026 2E) IN CSECT (T4000 ) LENGTH(1) 1558 RT329 jeeg oe HEX LOCATION (00003354) IN CSECT (14000 ) LENGTH (6) 
621 RDWDA ADDRESS. HEX LOCATION(0000262F) IN CSECT(I4000 ) LENGTH(1) 1596 RT 333 sEDERESs: HEX LOCATION(000033D4) IN CSECT(I4000 ) LENGTH(6) 
615 READ ADDRESS. HEX LOCATION (0000262A) IN CSECT (14000 ) LENGTH (1) 1733 RT4O2 indo seo teoe aon 4908 4 i. oe ) LENGTH (4) 
1333 es. Ar eee toet Wee. Bear. AR eee 1748 RT4O7 BODRESS- HEX LOCATION (000034FC) IN CSECT(I4000 ) LENGTH(2) 
oe ee oe ee eR aa tah ee 
oe ae ee eee g82 80) 1608 1882 1895 982 1925 1995 1393 
538 RrOCE —ABDRROS, HEE EGCATEOH (00092501, EH SSECT (34900 gh TENOMA(N 1255 345) 1248 Ja5s 3620 3083 4084 2808 3032 
1125 1140 1469 1184 1203 1218 1236 1269 1284 2027 _ 2078 2079 2142 2152 2153 
1783 1815 1838 toed tang 409s iste feet 10d - BETTE Pg E {8009888 672 905 900 923 
629 RST ADDRESS. HEX LOCATION (00002636) IN CSECT(I4000 LENGTH (1) 926 935 938 951 954 (965 968 981 984 
6 30 RSTDA “ADDRESS. HEX LOCATION (00002637) IN CSECT(I4000 LENGTH (1) 1066 1075 1078 1093 1056 1108 1108 1136 1139 
799 1141 1144 1153 1156 1170 1173 1185 1188 1204 
534 TNE —ABBRESGs HEX JEOCHTEGH (09098579) g2" SET CGRORO ) UeNoTH (A 1382 1243 138 Tae 1459 1339 1334 1259 134 
Se Gi | ieee gene eee) av eae fae 133 1438 135 1438 HEE) 1850 1083 1083 1488 
1480 RTO3 ADDRESS. HEX LOCATION (00003252) IN CSECT(I4000 LENGTH (6) 1897 1769 1707 1312 1933 19u3 1985 1548 1749 
16 84 RTO4 ‘ADDRESS. HEX LOCATION (00003472) IN CSECT (14000 LENGTH (6) 1883 1348 1849 1864 1867 1879 1883 1896 1899 
1786 RTOS ‘ADDRESS. HEX LOCATION (00003520) IN CSECT(I4000 LENGTH (6) 1933 2119 2423 2153 eee ee ee, Ween 
1998 RT06 ‘ADDRESS. HEX LOCATION (00003734) IN CSECT (14000 LENGTH (6) ° ae Bae B38 AeeuT B49. B70 872 906 908 #924 
841 RT105 "RSDRESS. HEX LOCATION (00002B76) IN CSECT(I4000 LENGTH (6) 858 1006 1012 1014 1037 1039 1039 1044 1064 
929 RT20A RBDRESS. HEX LOCATION(00002C3A) IN CSECT (14000 LENGTH (4) 1149 1744 1458 1156 117 1173 1186 1188 1368 
941 RT20C ADDRESS. HEX LOCATION(00002C5C) IN CSECT(I4000 LENGTH (6) 1336 1338 1303 1308 1318 1330 1335 1337 1353 
959 RT 20H ADDRESS. HEX LOCATION (00002C96) IN CSECT (T4000 LENGTH (4) 1039 iia} 1434 1453 1494 149¢ 1306 1808 1853 
971 RT20L ADDRESS. HEX LOCATION (00002CB8) IN CSECT(I4000 LENGTH (6) 1803 1804 1636 1638 1688 1693 1898 1703 1708 
987 RT2OR ADDRESS. HEX LOCATION(00002CF2) IN CSECT (14000 LENGTH (6) 1821 1836 1828 1844 1843 1847 1349 1850 1853 
1005 RT20W ADDRESS. HEX LOCATION(00002D2C) IN CSECT (14000 LENGTH (4) 1833 1934 1933 $456 3433 dad Panes gee ee 
992 0 R3 REGISTER. HEX VALUE (00000003) 
911 RT205 ADDRESS. HEX LOCATION(00002C00) IN CSECT (14000 LENGTH (6) 0 Ri Ue a — YALUE (90090004) 
ie ae. See oe eeeaee © ce | ae a ct 
1032 RT216 ADDRESS. HEX LOCATION (00002D82) IN CSECT(I4000 LENGTH (4) 354 355 356 1023 1024 1035 1060 1064 1062 
1099 RT22D NSDRESS. HEX LOCATION(00002E40) IN CSECT (T4000 LENGTH (4) 1167 i168 1169 1183 1183 1180 1204 1203 1203 
1069 RT220 ‘ADDRESS. HEX LOCATION (00002DE4) IN CSECT (T4000 LENGTH (4) 1389 1583 1384 1399 1300 1303 1394 1348 1346 
1054 1331 1332 1333 1348 1349 1350 1378 1379 1380 
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DECLARED 


1900 
1911 
1913 
1925 
1806 
1824 
1831 
1846 
1870 
1872 
1885 


592 
593 
739 

74 
1433 
1447 
1457 
1461 
1633 
1668 
1635 
1644 
1651 
1657 
1664 
533 
101 
783 
6 36 
633 


634 
539 


537 
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NAME ATTRIBUTES AND REFERENCES 
1417 1418 1419 1457 1490 1491 1492 1566 1567 
1568 1587 1588 1589 1624 1633 1634 1739 1740 
1741 1766 1767 1768 41797 #1798 1799 1815 1816 
1817 1837 1838 1839 1861 1862 1863 1876 1877 
1878 1891 1892 1893 1916 1917 1918 1949 1954 
R50A ADDRESS. HEX LOCATION (00003692) IN CSECT(I4000 ) LENGTH(6) 
R50B {ADBRESS. HEX LOCATION (000036B4) IN CSECT(I4000 ) LENGTH(6) 
R50C ADDRESS. HEX LOCATION(000036BC) IN CSECT(I4000 ) LENGTH(4) 
R50D ;ADDRESS. HEX LOCATION (000036DE) IN CSECT(T4000 ) LENGTH(6) 
R501 {ABBRESS. HEX LOCATION(00003564) IN CSECT(T4000 ) LENGTH(6) 
R503 ADDRESS. HEX LOCATION(000035a8) IN CSECT(I4000 ) LENGTH(1) 
R504 ADDRESS. HEX LOCATION (000035BA) IN CSECT(I4000 ) LENGTH(1) 
R505 ;ABDRESS. HEX LOCATION (00003588) IN CSECT(I4000 ) LENGTH(6) 
R506 ADDRESS. HEX LOCATION (0000363C) IN CSECT(I4000 ) LENGTH(2) 
R508 ADDRESS. HEX LOCATION (0000363E) IN CSECT(I4000 ) LENGTH (6) 
R509 ADDRESS. HEX LOCATION (00003666) IN CSECT(I4000 ) LENGTH(4) 
R6 REGISTER, HEX VALUE(00000006) 
1981 1982 1983 
R7 REGISTER. HEX VALUE (90000007) 
784 837 4848 868 871 907 4.925 929 937 
953 959 967 983 999 1005 1013 1028 1032 
1040 1065 1069 1077 1095 1099 1107 1128 1143 
1147 1155 1172 1176 1187 1206 1210 1221 1239 
1243. 1251 1272 1287 1293 1304 1319 1325 1336 
1353 1359 1367 1383 1387 1395 1420 1421 1422 
1428 1440 1452 1495 1499 1507 1524 1542 1546 
1554 1571 1577 1592 1603 1637 1689 1694 1699 
1704 1709 1714 1744 #1750 1771 «21789 «41802 «1811 
1820 1827 1842 1852 1866 1881 1885 1896 1907 
1921 1932 1984 2018 2052 2066 2068 2099 2121 
2141 2146 2175 
SAVER ADDRESS. HEX LOCATION (0000261E) IN CSECT(I4000 ) LENGTH(2) 
787 790 2078 2152 
SDCP ADDRESS. HEX LOCATION (000026 20) IN CSECT(T4000 ) LENGTH(2) 
STEP ohDDRESS. HEX LOCATION(00002AA2) IN CSECT(I4000 ) LENGTH(2) 
STEPNUM jADDRESS, HX LOCATION (0000180C) IN CSECT(I4000 ) LENGTH(1) 
50200 ADDRESS. HEX LOCATION (00003208) IN CSECT(IT4000 ) LENGTH(4) 
S0207 {ADDRESS. HEX LOCATION (00003226) IN CSECT(I4000 ) LENGTH(6) 
S0208 ,ADDRESS. HEX LOCATION (00003240) IN CSECT(T4000 ) LENGTH (2) 
S0209 ADDRESS. HEX LOCATION (0000324A) IN CSECT(I4000 ) LENGTH(6) 
50299 jBDBRESS. HEX LOCATION(00003408) IN CSECT(I4000 ) LENGTH(2) 
S030F ADDRESS, HEX LOCATION (0000346A) IN CSECT(I4000 ) LENGTH(6) 
S0 300 ADDRESS. HEX LOCATION(0000340E) IN CSECT(I4000 ) LENGTH(4) 
1646 1653 1659 1666 
$0302 ADDRESS: HEX LOCATION (00003420) IN CSECT(I4000 ) LENGTH(6) 
$0303 ADDRESS. HEX LOCATION (00003436) IN CSECT(I4000 ) LENGTH (6) 
50306 {RBDRESS. HEX LOCATION (00003446) IN CSECT(T4000 ) LENGTH(6) 
$0307 {BRBRESS. HEX LOCATION (0000345C) IN CSECT(T4000 ) LENGTH (6) 
TUID ADDRESS, HEX LOCATION (00002576) IN CSECT(T4000 ) LENGTH (2) 
TURESUL ADRRESS. HEX LOCATION (000018C8) IN CSECT(I4000 ) LENGTH(1) 
T4000 ADDRESS. HEX LOCATION(00002AD2) IN CSECT(I4000 ) LENGTH(1) 
WDATA ADDRESS. HEX LOCATION (0000263D) IN CSECT(I4000 ) LENGTH(1) 
988 1083 1483 1533 1559 1810 1857 1872 : 
WRITE ADDRESS. HEX LOCATION (00002638) IN CSECT(I4000 ) LENGTH(1) 
990 991 1019 1020 1086 1087 1134 1135 1163 
1164 1230 1231 1278 1279 1310 1311 «#1374 1375 
1486 1437 1536 1537 1562 1563 1807 1812 1855 
WRTDA ADDRESS. HEX LOCATION (0000263B) IN CSECT(I4000 ) LENGTH(1) 
XINCC ADDRESS. HEX LOCATION (00002582) IN CSECT (14000 } gUENGTH (1) 
1051 1085 1118 1196 1229 1262 1343 ‘1373 1423 
1460 1485 1515 1535 1561 1582 1645 1648 1652 
1658 1661 1665 
XIOCC ADDRESS. HEX LOCATION (00002580) IN CSECT (14000 ) LENGTH (1) 
807 827 897 913 943 73. 989 1018 1050 
1084 1117 1133 1162 1195 1228 1261 1277 1309 
1342 1372 1484 1514 1534 1560 1581 1734 1792 
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